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ーーーーーーーー《 ン パソ コン ライ プラ リ > 
パソ コン ライ ブラ リ は 「 論 理 的 で 明快 な 
説明 ・ 適 切な 例題 ・ 参 照 に 便利 な ペー ジ 単 位 
構成 」 を 特色 と し , 著者 の 多年 に わた る コン 
ビ ピュータ 教育 の 経験 を も と に , 独習 書 と し て 
も , 教材 と し て も 最適 で す . また 「 オ リ ジ ナ 
ル な プロ グラ ム 例 が 豊富 」・「 実 務 に すぐ 役 立 
。 つ プ ログ ラム 技法 に 詳し い 」・「 グラフィック 
ス に 詳し い 」・「 文 字 列 処理 の 説明 が わか リ 易 
い 」・「 エ ラー・ メ ッ セ ー ジ の 詳し い 解 説 が あ 
る 」 と いう の で , ベテラン ・ ユ ー ザ ー の 間 で も 
「 資 料 価値 が ある 」 と 好評 の シリ ー ズ で す . | 








se 





(① 基本 BASIC と その 応用 定価 1906 円 
各種 パソ コン 用 


② 拡 張 BASIC と その 応用 定価 1900 円 
⑧③? グ PBASIC 詳説 定価 3605 円 
⑤PC-8001 BASIC 定価 1648 円 
⑥PC-8801 BASIC 定価 2000 円 
16 ビッ トバ パソ コン 
⑦PC-9801 BASIC 定価 2500 円 
⑧Level3 プ MarkII BASIC 定価 1751 円 
⑨FM-7 BASIC 定価 2060 円 
⑩FM-8 BASIC 定価 1751 円 
⑪FM-11 BASIC 定価 2472 円 
パソ コン テレ ビ 和 
⑫X1 BASIC 定価 2472 円 
ポケ ッ ト ・ コ ンピュータ ー 
⑬PC-1500 BASIC 定価 1339 円 
⑬ MZ-700 HuBASIC 定価 1854 幅 
⑬⑮⑯MZ-80B, 2000 HuBASIC 定価 2575 幅 
⑯ PASOPIA 7 BASIC 定価 1854 円 
お し ゃ べり パソ コン 


⑰ PC-6001mkII BASIC 定価 2060 円 
⑱if-800 モデ ル 50 BASIC 寺 価 2369 幅 
⑯⑲MZ-2200 HuBASIC 定価 2266 幅 
⑳ PC-9801F 日 本 語 BASIC 評価 2680 幅 


PC-8801mkII ディ スク BASIC 
定価 2678 円 


IBM-5550 BASIC 定価 2680 円 
@⑯ PC-UX 入門 定価 1648 円 
⑳⑲ X1 turbo 入 門 定価 1350 円 
⑯X1turbo BASIC 基礎 編 定価 1500 円 
⑯9 X1 turbo グラ フィ ックス 定価 1800 円 


⑳⑰PC-8801mkII SR BASIC 定価 2678 円 
⑳89 PC-9800 シ リーズ VM/VX/XL BASIC 

定価 2890 円 
※ 表 示 価 格 は 全て 税込 み で す . 


書き か た (灰色 の 所 は 書か な く て も よい ) 





REM 文字 列 
( 例 ) REM EXAMPLE 





配列 の 下限 の 指定 


DTIM 配列 名 (寸法 ) , 配 列 名 (寸法 ) ,… 
( 例 ) DIM A(20,20),X(15) 
( 注 ) 寸法 10 以 下 な ら ば 宣言 不要 

OPTTION 下限 の 値 
( 例 ) OPTTION 1 
( 注 ) 指定 し な けれ ば 下限 は 0 








| LEBm 代入 先 の 変数 名 ニ 式 


( 例 ) A=B+O 





GOTO 行先 の 行 番号 
( 例 ) GOTO 246 





反 復 


POR 制御 変数 名 始 値 TO 終値 SEE 介 


( 例 ) FOR エ =1 TO 10 





反復 の 範囲 の 指定 





NEXT 制御 変数 名 
( 例 ) NEXT 1 





判断 分 岐 


TE 等 式 ま た は 不等式 THEnN 行先 の 行 番号 
( 例 ) IT A=B THEN 254 





キー 番号 に よる 分 岐 


ON キー 番号 GOTO 行先 の 行 番号 の 列 
( 例 ) ON K GOTO 100,300,800 





サブ ルー チン に 飛ぶ 


GOSUB 入口 の 文 の 行 番号 
( 例 ) GOSUB 7000 





サブ ルー チン の 出口 


RETURR 





関数 の 定義 


DEF 関数 名 (引数 ) = 式 
( 例 ) FNC(X ) = ニ 2*XX 十 1 





乱数 列 の 初期 化 





RANDOMIZE 





機能 


書き か た (灰色 の 所 は 書か な く て も よい ) 





端末 機 か ら の 入力 


INPUT 変数 名 を コン マ で 区 切っ て 書く 
( 例 ) INPUT X,Y,A(1) 





プロ グラ ム に 付け た 


デー タ の 入力 


READ 変数 名 を コン マ で 区 切っ て 書く 
( 例 ) READ N,H(K) ,1 





デー タ の 定義 


_ ーー † 
指定 印字 位置 まで の | 


算術 演算 子 
比較 演算 子 
組み 込み 関数 


RESTOREE 


STOB 


| DATA 値 を コン マ で 区 切っ て 書く 


( 例 ) DATA 8,1.5, "ABC" 








PRTINT 式 を コ ッ マ 沈 筆 名 ミコ ロン で 区 切っ て 書 
( 例 ) PRINT A,X 二 1, "MOI ,[ 
( 注 ) コン マ で 区 切る と 上 下 の そ ろ っ た 出力 形式 , セ 

ミコ ロン で 区 切る と コン パク ト な 出力 形式 に な 
る . た だ し 両者 を 混用 し た 場合 は その 限り で な い . 








TAB (印字 位置 ) を PR T NT 文 の 列 中 に 書く 
( 例 ) PRINT TAB(12) :A 





( 注 ) COONTTINUEE コ マン ド で 続き の 実行 再開 可 











英字 , 数 字 お よび 下記 の 記号 

キー*※ ノ ベニ マッ >( ) リ し | し に 。 1# ま 9%&7 
キー*※ ノ へ 

ぐ 、 る 二 二 人 光 = る 

STN sinx SQR 平方 根 

CO8S cosr ABS 絶対 値 

mAN tanr SGN 符号 

ATN arctanr IN 整数 化 

EXP e@* _RND 乱数 


LOG log。x 


20 
x 
4 ( 
『 ) 
も 

) 
8 0 
3)0 
Oo0 
1 0 
20 
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230 





FOR 


NEX 
PR 1 


GOY 


PRIRNTPT 


NEX〒 

PRINT 
NE 双 F J 
END 





この 本 は , 

コン ピュ ー タ ー の 基礎 知識 

BASIC の 文法 

基本 的 な プロ グラ ミン グ 技 法 

数 値 計算 法 の 初歩 
を 例題 中 心 に 説明 し , た くさ ん の 応用 問題 と その 解答 を 付け た も の で あ 
る 。 もともと, 大学 等 に お ける コン ピュ ー タ ー 教 育 の テキ スト , 参考 書 , 
演習 指導 書 と し て 作成 し た も の で ある が , て いね いな 説明 が 付い て いる 
の で 独習 書 と し て も ご 利用 いた だ ける と 思う 。 

この 本 の ね らい は , BASIC と いう 特定 の 言語 に 習 秀 さ せる こと より 
も 。 む し ろ 「BASIC を 通し て コン ピュ ー タ ー を 理解 させ る ] こと に あ 
る 。 そ の た め , 文法 より も コン ピュ ー タ ー の 活用 法 に 重点 を 置い て いる 。 
BASIC と いう 言語 は 簡単 で 覚え 易く 。 この よう な 目的 に は まさ に 好適 
で ある 。 演習 問題 も , 無味 乾燥 な 文法 は 最小 限 に と ど め , 応用 の 基本 的 
な パタ ー ン を 数 多く 収録 し た つも り で ある 。 

本 書 で 用 いる BASIC の 文法 の 範囲 は , 国際 標準 規格 で いう と ころ の 
基本 BASIC (Minimal BASIC) に 限定 し た 。 高 級 マ イコ ン の BASIC の 
仕様 は 。 これ より も は る か に デラ ックス で ある か ら , 本 書 の 内 容 は , 高 
級 マ イコ ン の 使用 者 に に と っ て は お そら く 不 満 が 多い こと と 思う 。 し か し , 
教育 機関 に お いて は 基本 BASIC し か 使え な い 機 種 が まだ 数 多く 使用 き 
れ て いる の で , そう いう 機種 で も 実習 で きる よう に 配慮 し た わけ で ある 。 
マイ コン で 使わ れ て いる 拡張 BASIC に 関し て は , いずれ その うち に , 専 
用 の テキ スト を 作り た いと 考え て いる 。 
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演習 問題 解答 の こと 


独習 され る 方 々 の た め に , 演習 問題 解答 を 付け まし た 。 こ れ は , あく まで も 
参考 用 で ,。 この と お り で な けれ ば いけ な い 。 と いう わけ で は あり ませ ん 。 も っ 
と うま い プ ログ ラム も 作れ る と 思い ます 。 こ こ に あげ た プロ グラ ム は , 全部 コ 
ンピュータ ー で テス ト し て あり ます ( 主 に BASIC Master Level-3 を 使用 一 
部 は PC-6001 を 使用 )。 し か し , 機種 に よる 扱い 方 の 違い が いく ら か あり ます 
し , テス ト も 完全 と は いえ な いと 思い ます 。 お 気付 き の 点 が ご ざい まし た ら 。 
ご 一 報い た だ けれ ば 幸い で す 。 


戸川 保子 
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] コン ピュ ー タ ー の 概要 


].1 コン ピュ ー タ ー と は 


コン ピュ ー タ ー は 博 報 を 扱う 機 機 で ある 。 
た と えば , 情報 の 

入力 収集 記憶 伝送 出力 

分 類 照合 検索 変換 計算 
な ど を 行なう こと が で きる 。 
コン ビュー ター は 層 幸 を 符 和 列 (序列 ) の 形 で 抱 う 。 そ うい う 扱 い 
か た を デジ タル (digital) 方 式 と いう 。 情報 の 扱い か た と し て は , その 
ほか に アナ ログ (analogue) と いう 方 式 が ある 。 こ れ は 量 的 情報 を 量 に 
比例 (な いし は 連続 的 に 対応 ) する 物理 量 で 表す や りか た (た と えば 普 
通 の 寒暖 計 . レコ ー ド , 写真 な ど ) で ある 。 デ ジタル 方 式 は アナ ログ 方 
式 に 比較 し て , 概して 機構 が 複雑 に な る 

より 広範 囲 の 情報 を 扱う こと が で きる 

複雑 な 処理 が 可能 
な どの 利点 が ある 。 
コン ピュ ー タ ー の も う 一 つの 特長 は , 

装置 は 単純 か つ 汎 用 的 に し て ある 

その 動作 順 庄 を プロ グラ ム と いう 形 で セッ ト で きる 

その プロ グラ ム を また 情報 と し て 処理 する こと が 可能 
と いう こと で ある 。 こ れ を プロ グラ ム 内 蔵 (stored program) 方 式 と い 
う 。 そ の 結果 と し て , 装置 を 複雑 に する こと な く , きわ め て 複雑 な 処理 

可能 に な っ て お り , また 汎用 機械 と し て 多様 な 目的 に 使用 で きる わけ 
で ある 。 
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1.2 原 理 

コン ピュ ー タ ー で 扱う 情報 に は 
数 値 
文字 列 


待 号 パ ター ン (た と えば 画像 を その まま 符号 化し た も の ) 
な ど が ある が , 最終 的 に は それ ら を すべ て 0 と 1 の 列 
( 例 ) 1011010… 
に よっ て 表現 し 処理 する 。 そ れ は 
た っ た 2 種類 の 待 号 「0 」「 1 」 を 処理 で きれ ば よい 
し た が っ て 機構 が 簡単 に な る 
組合 せ に よっ て 各種 の 数 値 や 文字 や パタ ー ン を 表現 で きる 
と いう 利点 が ある か ら で あ る 。 0 と 1 を 表現 する に は , 要する に 二 つ の 
状態 を 区 別 で きれ ば よい わけ で ある か ら , た と えば 
電圧 の 高 、 低 
スイ ッ チ の ON, OFF 
穴 の ある , な し 
な ど 各 種 の 方 法 に より , 記憶 し た り , 伝送 し た り , 処理 し た りす る こと 
が で きる 。 
2 進 法 数値 を 1 と 0 で 表す に は , 2 進 法 (binary) を 用 いる の が 


普通 で ある 。 こ れ は : (参考 ) 10 進 法 の 場合 
整数 の 最 下位 は 29 =1 の 位 | 100 ニー の 位 
その 左 の 桁 は 2! = 2 の 位 | 10' = 十 の 位 
その 左 の 桁 は 22 =4 の 位 10? = 百 の 位 
一 般 に 第 ヵ 桁 は 2! の 位 | 10'! の 位 
と いう 表し か た で ある 。 


( 例 ) 2 進 法 の 1 0 1 は 10 進 法 の 5 (1X2? 十 0X21 十 1X29 ) 
な お , 小数 点 の 右 は 2~! の 桁 、 そ の 右 は 2~? の 桁 ,。… と な る 。 
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ビッ ト 2 進 法 の 桁 数 の こと を ビッ ト 数 (bit, これ は binary digit 
を 縮め た 造語 ) と いう 。 そ れ は 「0 と 1 の 列 の 長き さ ] と いっ て も よい 。 
( 例 ) 2 進 法 1 桁 な ら ば ビッ ト 数 は 1 (1 ビッ ト ) 
0 1 0 0 1 0 1 の ビッ ト 数 は 7 (7 ビッ ト ) 
バイ ト 文字 は 普通 8 血 の 0 と 1 の 組合 せ で 表す 。 そ の よう な ま と 
まり (処理 単位 ) を バイ ト (byte) と いう 。 
( 1 バイト)=( 8 ビッ ト ) 
1 バイ ト て 表現 で きる 文字 の 種類 は 28 ニ 256 で ある 。 こ れ て 英字 , 数 字 。 
カナ 文字 , 各種 の 記号 、 な ど を 表す こと が で きる ( 下 表 参 照 )。 漢字 を 表 
す に は これ で は 足り な い の で 2 バイ ト を 用 いる (JIS C-6226)。 
ワー ド ( 語 ) 数値 は , 普通 、 一定 の 桁 数 で 扱わ れる (可変 桁 数 で 扱 
うこ と も 原理 的 に は 可能 で ある が , 演算 時 間 が か か る な ど 不 利 な こと が 
多い の で , 特殊 な 場合 以外 に は 用 いら れ な い )。 この まとまり (数 値 処理 
の 標準 的 な 桁 数 の 0 と 1 の 列 ) を ワー ド (word, 語 ) と いう 。 ワ ー ド の 
長 さ は 機種 に よっ て 異な る 。 






下位 4 桁 


0000 
0001 
0011 
0100 
0101 
0110 
0111 
1000 
1001 
1010 
1011 
1100 
1101 
1110 


上 位 4 桁 

0010| 和 | リョ % を | ( ) * 二 ーー ノ 
001110 1 2 9? 4 6 7 8 9 ) く 三 7 
0100|1@ A B CO D EEG HH TI K 1 M RN O 
0101|P Q R SrTUVWXY [ 登 ] ー 
1010 「 ] ヲ ァ ウ エ オ ヤ ユ ヨー ッ 
1011| 一 ア イ ウ エ オカ キク ケ コ サ シ ス セ ソ 
1100| タ チ ナツ テト サナ ニ ヌ ネ グ ノ ハ ヒ へ ホ マ 
T101|] ミ ム み ム メモ ヤニ エ ヨ ヲタ リル ビビ ど ロ ン 


文字 を 0 と 1 の 組合 せ で 表す や りか た の 一 つの 例 (JIS コー ド ) 
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AND と OR 0 と 1 で 表 さ れ た 情報 を 扱う た め の 基 本 的 な 手段 と 
し て は , AND 回 路 と OR 回 路 が ある 。 い ずれ も . 複数 筒 (基本 的 に は 
ー つ ) の 入力 端子 と 1 箇 の 出力 端子 を も つ 。 





AND 回 路 
全 i な 部 の 入力 敵 子 に 1 が 入れ ば | 
出力 は 1、 そ う で な けれ ば 出力 
は 0 。 






な く と De - つ の 入力 敵 に 
1 が 入れ ば 出力 は 1, そう で な 
けれ ば 出力 は 0 。 









電源 ( 十 ) へ 
A 出力 


出力 





NOT 基本 的 な 論理 回 路 と し て は , も う 一 つ , NOT 回 路 と いう 
の が ある 。 こ れ は , 入力 が 0 な ら ば 出力 は 1, 入力 が 1 な ら ば 出力 は 0, 
と いう 回 路 (すなわち , 0 を 1 に , 1 を 0 に , 反転 する 回 路 ) で ある . 
論理 式 で は 記号 一 を 前 に つけ て (た と えば つ A と いう よう に ) 表す . 論 
理 回 路 図 で は 小さ な 白 丸 印 で 表す . 


ーー 


単 衝 の NOT 回 路 NAND, すなわち NOR, すなわち 
"not and” 回 路 "not or” 回路 





電源 ( 十 ) へ 


入力 端子 
R 出力 端子 


NOT 回 路 の 例 


電源 (一 
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加算 器 2 進 法 の 加算 を する に は , 基本 的 に は 
0+0=0 0+1=1 
1 二 0=1 1+1=10 (0 で , くり あがり 1 ) 
すなわち 
な ら ば , 出力 は z= ニ 0, c=0 
入力 が *= ニ 0, y ニ 1 な ら ば , 出力 は z= テ 1, c=0 
入力 が *= ニ 1, ッ = テ 0 な ら ば , 出力 は z= ニ 1, c=0 
入力 が * ニ デニ 1, ッ = テ 1 な ら ば , 出力 は z= ニ 0, c=1 
と いう 回 路 を 作れ ば よい 。 こ れ ら を まとめ る と , 
* と ッ が と も に 1 な ら ば c ニ 1 (そう で な いと き c=0) 
* か ッ が 1 で , c 三 0 な ら ば , z 三 1 (それ 以外 は z= テ 0) 
と な る か ら , た と えば 


入力 が *= テ 0, ッ = テ 0 


3 


c (くり あがり ) 


と すれ ば よい (た だ し 実際 に は 電子 回 路 と し て の 諸 条 件 を 考慮 し て , も 
う 少 し 違っ た 形 が 用 いら れる )。 

上 記 の 機能 を も つ 回 路 を 半 加 算 器 (half adder) と いう 。 そ れ を 2 筒 
組み 合わ せ て 「 下 段 か ら の くり あがり 」 を 処理 で きる よう に する と , 完 


全 な 1 桁 加算 益 に な る 。 
沈 【 
半 加 算 器 
\ る 
半 加 算 器 
入力 ァ と ゅ を まず 下位 の 桁 か ら 出力 


『 
加え る 。 の くり あがり 
を 加算 する 。 










直列 加算 器 被 演算 数 を レジ スタ ーR 1 、R 2 に 置き , 最 下位 の 桁 
か ら 順 に 1 桁 加算 器 に 送っ て 加算 を 行ない , 結果 を レジ スタ ーR 3 に 入 
れる 。 くり あがり は, 上 図 の FF と いう 所 で 保持 (一 時 的 に 記憶 ) し 
て お いて , 次 の 桁 の 加算 の 際 に 「 下 位 か ら の くり あがり 」 の 端子 だ に 送 
リ 込む 。 

レジ スタ ー(register ) 処理 の た め に 数 値 な ど を 一 時 的 に 置い て お 
くだ た め の 回路 。 記 憶 装 置 の 一 種 と みな すこ と も で きる が , 単に 記憶 し て 
お くだ け で な く , シフ ト (shift, 桁 移動 ) な ど が 可能 で あっ た り (シフ 
ト で きる レジ スタ ー は シフ ト ・ レ ジス ター と 呼ば れる ), 自由 な タイ ミン 
グ で 書き 込み 、 読み 出し が で きる な ど , 処理 に 適し た 諸 機能 を 有する の 
が 普通 で ある 。 素 子 と し て は , 次 に 述べ る フリ ッ プ ・ フ ロッ プ を 用 いる 
の が 普通 で ある 。 

フリ ッ プ ・ フ ロッ プ (flip-flop、 略 し て FF と いう ) 端子 S (set 
の 意 ) に 1 の 信号 が (ご く 短 時 間 で も ) 入る と 「0 端 子 が 0, 1 端子 が 
1 」 と いう 状態 に な り , R (reset の 意 ) に 1 の 信号 が 入る と 逆 の 状態 (0 
端子 が 1, 1 端子 が 0 ) に な る 回 路 。 

回 路 の 一 例 (解説 ) 
S 端子 に 1 が 入る と , 上 の OR 回 


S 0 路 の 出力 は 1 、 それ を 反転 し た 結果 
は 0 と な る 。 そ の た め 、 下 の OR 回 
路 の 出力 は 0 , 反 転 す る と 1 に な り , 
結局 、 0 端子 は 0, 1 端子 は 1 に な 
1 


R る 。R 端 子 に 1 が 入る と 送 に な る 。 
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乗算 乗算 の 要領 は 筆算 の 場合 と だ いた い 同 上 で , 
ij ヵ 桁 の 被 乗 数 に 乗数 の 1 桁 を 掛け る 
jj. その 結果 を 乗数 の 桁 位置 に 合わ せ て シフ ト す る 
岳 . それ を 加え 合わ せる 
と すれ ば よい が , 2 進 法 の 場合 に は 「 乗 数 の 1 桁 ] の 値 が 0 また は 1 の 
どちら か で ある か ら , i の 乗算 は 事実 上 不要 で , 単に 被 乗数 を シフ トレ し 
て , 乗数 の 桁 が 1 の 場合 だ け 加 え 合 わせ れ ば よい 。 
( 例 ) 1011 て 被 乗数 
X 101 て 乗数 
1 0 1 1 
ド ひ 1 1 
110111 一 加え 合わ せ た 結果 
除算 除算 の 要領 も 筆算 の 場合 と 同様 で ある が , 2 進 法 だ と 
商 の 一 杵 と し て 立つ の は 0 か 1 に 限る 
その 内 の どちら に な る か は 容易 に わか る 
( 除 数 ) メ ( 商 の 一 桁 ) の 乗算 は 事実 上 不要 
な の で , 結局 .、 シ フト と 減算 を くり か えせ ば よい 。 
( 例 ) 1 0 1 ー 商 
1011)110111  ~ 技 除 数 


1 1 0 1 1 
除 数 | CO 


1011 
0 余り 

速度 と コス ト 原理 は 上 記 の と お り で ある が , これ を 電子 回 路 的 に 
実現 し よう と する と , か な り 複 雑 に な る の で コス ト が か か る 。 そ の た め 
超 小 型 コ ンピュータ ー で は , これ を プロ グラ ム て 処理 し て いる も の が 多 
い 。 そ うい う 機 種 だ と , 乗算 , 除算 は 加算 より は る か に 演算 時 間 が か か 
る 。 一 方 , 大 型 コ ンピュータ ー で は , 多数 の 素子 を 使っ て 高速 化し た 回 
路 を 用 いて いる の で , 乗算 や 除算 も 加算 と あま り 変 わら な い 時 間 で 処理 
の きる 。 


| に たら は に 本 数 を シフ ト し た も の 
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補 数 減算 を 行なう に は , 

数 値 を 「 待 号 と 絶対 値 の 組 」 で 表現 し て お く 

減算 器 に よっ て 「 絶 対 値 の 引き 算 ] を 行なう 
と いう 方 式 が 考え られ る (実際 に この 方 式 を 採用 し て いる コン ピュ ー タ 
ー も 少な く な い )。 し か し , も う 一 つの や りか た と し て 

負数 を 「 補 数 ] と いう 形 で 表現 し て お く 

「 補 数 の 加算 ] に よっ て 減算 を 行なう 
と いう 手 が あ る 。 補 数 と いう の は , 負数 に 「 非 常に 大 き な 数 ] を 加え て 
(いわ ば , 大 き な ゲ タ を は か せ て ) 正 数 と し て 扱う や りか た で ある 。 


( 例 ) 扱う 数 の 絶対 値 が すべ て 1 より 小さ い 場 合 に は 「 非 常に 大 き な 数 」 と 
し て 2 を 用 いる と よい 。 た と えば, 
02<1 0 ミカ ヵ <1 
の と き , 一 の は , それ に 2 を 加え た 値 , すなわち 2 一 め て 表す 。Z 一 ちの 計算 
は , 
2 一 の = ニ Z 十 (一 ち )= テ 6 十 (2 一 ヵ ) 一 2 
と いう 形 で 処理 する 。 
0.8 一 0.3=0.8 十 ( 2 一 0.3) 一 2 
0.8 十 (1.7) 一 2 
三 2.5 一 2 =0.5 
この よう に , 負数 一 * を 「 足 し て 2 に な る 数 ] 2 一 て 表し た も の を [2 の 補 
数 |] (2's complement) と いう 。 


補 数 を 用 いれ ば , 減算 器 を 用 意 す る 必要 が な い (加算 器 だ け で よい )。 
また , 加減 算 の 際 に 、 二 つの 被 演算 数 の 待 号 の 組合 せ と 絶対 値 の 大 小 に 
よっ て , 絶対 値 を 加算 する か 減算 する か を 判断 する 手間 も 省け る 。 そ の 
か わり , 補 数 を 作る 回 路 が 必要 に な る が , 2 進 法 の 場合 に は これ が 非常 


に 簡単 で , 
1 は 0 に , 0 は 1 に 書き 換え る ( 例 ) 0 .1011 の 補 数 は 
た だ し 最 下 位 だ け は も と の まま 1 .0101 


と すれ ば よい 。 
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浮動 小数 点 演算 科学 技術 計算 で 扱う 数 値 に は , 非常 に 小さ な 値 か 
ら 非 常に 大 き な 値 ま で ある 。 計 算 の 際 に , 利用 者 が いち いち その 位 取り 
を 調節 する の で は た い へ ん で ある 。 そこで, 位 取り を 自動 的 に 調節 する 
方 式 が 用 いら れる よう に な っ た 。 こ れ が 浮動 小数 点 演算 と いう や りか た 
で あっ て , 数 値 を 
指数 部 (exponent) 位 取 り を 表す 部 分 
仮数 部 (mantissa ) 有効 数 字 を 表す 部 分 
の 組 と し て 扱い , 加減 算 の 際 に は まず 被 演算 数 の 位 取 り を 合わ せ て か ら 
演算 を 行なう 。 
( 例 ) 10 進 法 な ら ば 
ィ ー6Z※10? |z|< 1 


2 進 法 な ら ば 
ァ ーgX ベ 27 |z|< 1 

で 表す の が 普通 。 そ の ほか , 2 進 法 を 4 ビッ ト ず つ 区 切っ て 扱い 
ァ 三 6X167 |z|< 1 


で 表す 方 式 も よく 用 いら れ て いる 。 

2 進 小数 使用 上 の 注意 ※ コン ピュ ー タ ー で は 無限 の 桁 数 を 扱う こと 
は で き な い か ら , 無限 小数 は 一 定 桁 数 の 有限 小数 で 代用 し て (近似 し て ) 
扱う 。 そ の 際 に , どう し て も 丸め 誤差 が 入る 。 

た と えば , 1 を 3 で 割り 、 その 結果 を 3 倍 す る , と いう 計算 は , 10 進 
法 6 桁 で 計算 する と 

1 で 3 三 0.333333 (以下 切り 捨て ) 
0.333333X3=0.999999 ま 1 
と な る 。 同様 な こと は 2 進 法 で も 起こ る 。 そ の 際 に 注意 を 要する の は , 
0.1 0.2 0.3 0.4 0.6 0.7 0.8 0.9 
な どの よう な 「10 進 法 の 有限 小数 ] が , 2 進 法 だ と 無限 小数 に な り , し 
た が っ て 正確 に は 表現 で き な い こと が 多い , と いう こと で ある 。 
( 例 ) 10 進 法 の 0.1 を 2 進 法 で 表す と 
0 .0001100110011001100…… 


に な る 。 
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1.3 構 成 


コン ピュ ー タ ー は , 機能 的 に 大 きく 分 ける と , 
入力 装置 デー タ そ の 他 を 読み 込む 装置 
出力 装置 結果 その 他 を 表示 し た り 記 録 し た りす る 装置 
演算 装置 演算 な どの 処理 を 行なう 装置 
記憶 装置 情報 を 記憶 , 保持 する 装 軒 
制御 装置 全体 の 制御 を 行なう 装置 


の 所 つの 部 分 か ら 成 る 。 






入力 装 汗 








記憶 装置 


制御 装置 


| 


演算 装置 











大 規模 な 構成 の 例 
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入力 手段 現在 よく 使わ れ て いる 入力 手段 の 種類 、 仕様 特長 な ど 
を 簡単 に 紹介 する 。 
金 鍵盤 (keyboard) コン ピュ ー タ ー を 対話 形式 で 用 いる 場合 の 標 
準 的 な 入力 手段 、。 ま た コン ピュ ー タ ー の 操作 も 鍵盤 を 介し て 行 な 
う の が 普通 で ある 。 簡 単 で , 安く , すぐ に 応答 が ある こと な ど が 
利点 で ある が , 手 作 業 (それ も 多く の 場合 は 素人 の ) で ある た め 


遅く 。 大量 の デー タ の 入力 な ど に は 適し な い 





鍵盤 に よる 入力 


金 カー ド (punched card) 縦 82.32 mm, 横 182 .55 mm, 厚 さ 0.178 
mm の 厚紙 に , 12 段 80 列 の 「 穴 の 位置 ] が あり , 縦 1 列 の 穴 の 組 
合せ で 1 字 を 表す (し た が っ て カー ド 1 枚 に 80 字 まで 記録 で きる ) 
あら か じ め カ ー ド 容 孔 機 に よっ て 記録 し て お いて , カー ド 読 取 機 
に か け て 入力 する 。 読取 速度 は 普通 、 1 分 間 に 数 百 枚 一 千 数 百 枚 . 
比較 的 最近 まで , 中 一 大 型 シ ステ ム の 標準 的 な 入力 手段 で あっ 


だ 。 
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紙テープ (punched tape) 幅 25.4mm の 紙テープ の 幅 方 向 に 8 
列 の 穴 位 置 が あり , 8 箇 の 穴 の 組合 せ で 1 文字 を 表す 。 読 取 機 に 
は , 機械 式 の 低速 の も の (毎秒 10 字 程度 ) と , 光電 式 の 高速 の も 
の (毎秒 数 百 字 ) が ある 。 





文字 読取 機 (OCR) ジョ イス ティ ッ ク 


例 OCR (optical character reader, 光学 式 文字 読取 機 ) 

人 OMR (optical mark reader, 光学 式 マー ク 読 取 機 ) 
いずれ も , 手書き の 情報 や 誰 に も 読め る 形 で 印刷 され た 情報 を 
入力 する 手段 で ある 。 一 般 の 人 に も 親しみ 易い こと が 最大 の 特長 
で ある 。 ま た , 特に 準備 装置 (カー ド 容 孔 機 の よう な ) を 必要 と 
し な いと いう 利点 も ある 。 

$ その 他 座標 読取 機 (普通 は 手動 で ペン や カー ソル で 指示 し た 
点 の 座標 を 入力 する ), 画像 入力 装置 , AD (analogue to digital) 
変換 器 、 音声 入力 装置 、 音響 カプ ラー な ど が ある 。 ま た , 制御 用 
の コン ピュ ー タ ー で は , バス (bus, 信号 母線 ) や 直接 入力 用 の 端 
子 を 介し て , デジ タル 情報 を 直接 に 入力 する こと も 可能 で ある 。 
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出力 手段 出力 手段 に は 大 別して 

印刷 

表示 

再 入力 用 媒体 に 記録 

図 化 

直接 出力 

が ある 。 そ の 主 な 装置 を 簡単 に 紹介 する 。 

人 プリ ンタ ー  。 これ に は , タイ プラ イタ ー (typewriter) の よう に 1 
字 ず つ 打 っ て ゆく 低速 の も の (毎秒 十字 な いし 数 十字 ) と 、 ライ 
ンプ リン ター (line printer) と いっ て 一 行 を まとめ て (ほとん ど 
同時 に ) 打つ 高速 の も の ( 毎 分 数 百 行 以上 ), お よび 両者 の 中 間 的 
な 性 格 の も の が ある 。 印 字 方 法 に は , 大 別して 

活字 を 用 いる 

0 
の 二 つ が ある 。 前 者 は 原理 的 に は 簡単 で も わる が mm 
文字 の 種類 を 多く する の が 困難 で ある 。 そ れ に 同 
対し , 後者 は パタ ー ン を 記憶 し て お く 必 要 が あ 
る が , 印字 機構 その も の は 簡単 で (し た が っ て 
高速 化 , 軽量 化 , コ スト ダウン が 可能 )、 文字 の 
種類 を 多く する の が 容易 で ,、 や り よ うに よっ て 
は グラ フ や 画像 を 描か せる こと も で きる , と い 
う 利点 が ある 。 ま た , 記録 方 法 に は , 

a. イン クリ ボン を た た く 

b. 感 圧 紙 を た た く d. イン ク を 吹き 出す 

c. 感熱 紙 に 熱 を 加え る e. 静 電 的 方 法 
な ど が ある 。 こ の 内 , a, d, e は 特殊 な 用 紙 を 必要 と し な いと 
いう 利点 が ある 。b, c は 鮮明 度 が や や 劣る 。、a, b は 複 号 ( 複 
数 枚 の 同時 印刷 ) が 可能 。 e の 一 種 。 レー ザー プリ ンタ ー は 高価 
で ある が , きわ め て 高速 , 鮮明 、 汎 用 的 で ある 。 
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レー ザー プリ ンタ ー 


人 ディ スプ レイ 装置 文字 だ け を 表示 する キャ ラク ター・ デ ィ ス プ 
レイ (character display) と , 文字 の ほか に 図形 も 表示 で きる グ 
ラフ ィ ッ ク ・ デ ィ ス プレ イ (graphic display) と が あり ,、 ど ちら 
に も カラ ー と モノ クロ が ある 。 表示 に は プラ ウン 管 (cathode ray 
tube, 略し て CRT) が 用 いら れる が , 

普通 の テレ ビ と 同じ 方 式 (raster scan ) 
ビー ム を 動か し て 線 を 引く 方 式 (random scan) 
の 二 つ の 方 式 が あり , 後者 に は さら に 
毎秒 数 十 回 くり か え し 表示 (refresh 型 ) 
描い た 線 が 消え な い 特 殊 な CRT を 使う (storage 氏 ) 
の 二 種 類 が ある 。 い ずれ に し て も , 簡単 な 付加 装置 を 用 い ズ 画面 


の ハー ドコ ピー ( 紙 へ の 複写 ) を と る こと が で きる 





マイ コン の セッ ト ( 左 は ディ スプ レイ 装置 。 中 央 上 は プリ ンタ ー, 
中 央 下 は 本 体 と キー ボー ド , 右 は フロ ッ ピー ディ スク 装置 ) 


1.3 構 成 15 





ボー タプ ブル 端末 機 


@ X-Y プ ロッ ター 自動 的 に グラ フ や 図面 を 描く 装 直 で , 
四角 い 平 板 上 を ペン が 動い て 描く (flat bed 沿 ) 
円 筒 の 回 転 と ペン の 動き (1 軸 の み ) で 描く (drum 晶 ) 
が ある 。 紙 幅 25cm ぐ らい の 小型 の も の か ら , 2mX5m と いっ た 
大 型 の も の まで , また 多 色 自動 切換 の で きる も の , 高速 の も の な 
ど 、 各 種 の も の が ある 。 
ぐ 直接 出力 制御 用 の コン ピュ ー タ ー で は , バス や 直接 出力 用 端子 
を 介し て , 直接 に デジ タル 信号 を 出力 する こと が で きる 。 ま た そ 
れ を DA (digital to analogue) 変換 し て 、 ア ナ ロ グ 量 (た いて 
い は 電圧 ) の 形 で 出力 する こと も で きる 。 ま た , 通信 制御 装置 と 
変調 器 を 介し て , 通信 回 線 に 接続 する こと も 可能 で あり , 他 の 機 
器 や 他 の コン ピュ ー タ ー に , 直接 , デー タ を 送る こと が で きる 





16 1 コン ピュ ー タ ー の 概要 
記憶 装置 記憶 装置 (memory, storage) の 用 途 に は 
処理 の 作業 場所 と し て 使用 する た め (一 時 的 使用 ) 
情報 を 保管 し て お く た め (長期 間 保 存 ) 
の 二 つ が ある 。 前 者 の 目的 に は 
高速 に 書き 込み 、 読み 出し が で きる こと 
小 単位 (1 語 ま た は 1 バイ ト 単 位 ) で 出し 入れ で きる こと 
が 必要 で ある 。 そ の か わり , 人 窒 量 は (後者 に てら べ れ ば ) それ ほど 大 き 
く な く て も よい 。 一 方 , 後者 の 目的 に は 
大 量 の 情報 を 記録 で きる こと 
が 必要 で ある 。 そ の か わり , 出し 入れ は 小 単位 で な く て も よく (処理 の 
際 に は 一 時 的 に 高速 記憶 装置 に 移せ ば よい ), 速度 も (前 者 に くら べ れ ば ) 
多少 遅く て も よい 。 





磁気 ディ スク 装置 
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集積 回 路 (ITC メ モリ ー) トラ ンジ スタ ー や ダイ オー ド は , 非 
常に 動作 時 間 が 短い 。 こ れ を 用 いて (た と えば 6 ペー ジ で 説明 し 
た フリ ッ プ ・ フ ロッ プ を た くさ ん 並べ て ) 記憶 装置 を 作れ ば , 高 
速 で 使い 易い ( 他 の 素子 と の つなが り ぐ あい が よく , 制御 も し 
易い ) 理想 的 な 記憶 装置 が で きる 。 唯一 の 欠点 は 値段 が 高い こと 
で あっ た が , 近年 , 大 規模 集積 回 路 技術 の 進歩 に より ,、 か な り 大 
容量 の も の まで , 手頃 な 価格 で 購入 で きる よう に な り , 今日 で は 
マイ コン か ら 大 型 コ ンピュータ ー ま で , ほとん どす べ て の 機種 の 
主 記憶 装置 と し て 用 いら れ て いる 。 そ れ で も 高 性 能 の も の は 高価 
で , 少し 性 能 を 落と せ ば 安く 大 容量 の も の を 作る こと が で きる 。 
バイ ポー ラー (bipolar) メモ リー は , 高速 で ある が 高価 な の で 特 
に 高速 を 要する 場合 に 用 いら れる 。MOS (metal oxide semi- 
conductor) メモ リー は , や や 低速 で ある が 大 人 容量 の も の ま て 比 
較 的 安く 作れ る の で , 普通 は こち ら が 使わ れる 。 や や 特殊 な も の 
に ROM (read only memory, 読み 出し 専用 の メモ リー) が あ 
る 。 な お RAM と いう の は random access memory (どの 番地 
も 同じ 待 時 間 で 参照 で きる メモ リー) の こと 。 
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IC(LSI) メ モリ ー (実際 の 大 き さ は 2 mmX 2 mm ) 
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磁気 ディ スク いわ ば レコ ー ド と テー プレ コー ダー の あい の こ 
形 は レコ ー ド に 似 て いる 。 大 き さ は LP レ コー ド で らい (フロ ッ 
ピー・ デ ィ ス ク は シン グル 盤 ぐ で らい)。 記録 原理 は チ テー プレ コー ダ 
ー と 同様 。 磁気 に よる 。 そ の 記録 , 再生 ヘッ ド は , アー ム の 先 に 
つい て いて 、 その アー ム を 移動 させ る こと に より , 盤面 上 の 位置 
を 選択 する こと が で きる 。IC メ モリ ー に 比較 する と は る か に 低 
速 で ある (アー ム の 移動 に 時 間 が か か り ,、 また , 円 板 が 回 転 し て 
所 望 の 箇所 が ヘッ ド の 所 に 来る まで 待つ 時 間 も か か る ) が , 
大 量 の 情報 を 記録 で きる ( 1 枚 に 数 百 KB~ 数 十 MB ) 
1 ビッ ト あ た り の コス ト が 安い 
と り は ず し て 保存 で きる (固定 式 の も ある が ) 
な どの 利点 が ある の で , 広く 用 いら れ て いる 





フロ ッ ピ ー・ デ ィ ス ク ディ スク 装置 の 内 部 


$ 磁気 テー プ (magnetic tape) コン ピュ ー タ ー 用 の 標準 的 な 磁気 テ 
ー プ は , 幅 12.7 mm, 長き 720m で , 幅 方 向 に 9 列 の 記録 位置 が 
あり (9 トラ ッ ク ), 長 さ 方 向 1 mm あたり 数 十 ビ ピット と いう 高密 
度 で 0 1 の 情報 を 記録 する 。 大 量 の 情報 を 保存 し た り 持 ち 運ん 
だ りす る の に 便利 で ある 。 一方, カセ ッ ト ・ テ ー プ は , 比較 的 小 
量 の デー タ を 手軽 に 扱う の に 適し て いる 。 
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ぐ 磁気 バブ ル お よび CCD(charged coupled device) 物性 を 巧妙 
に 利用 し た 新しい 記憶 方 法 。 デ ィ ス ク ほ どの 答 量 は な い が デ ィ ス 
ク よ り 速 く 、 サ イズ が 小さ 〈 て , 動く 部 分 (モー ター な ど ) が な 
い ,。 な どの 特長 が ある 。 中 程度 の 容量 の 記憶 手段 と し て 利用 され 


て いる 。 


ON 


磁気 バブ プル メモ リー の 内 部 MSS の 内 部 






人 MSS (mass storage system ) た くさ ん (数 百 巻 一 数 千 巻 ) の 磁 
気 テ ー プ を ハチ の 上 巣 状 の セル に 入れ て お き ,、 コン ピュ ー タ ー か ら 
の 指令 に 従っ て , 自動 的 に 選択 , 装着 し て 記録 、 再 生 を 行なう 。 
磁気 ディ スク より も 遅い が , 容量 は は る か に 大 きい 。 

人 その 他 磁気 コア (magnetic core) は , 比較 的 最近 まで , 主 記 憶 
装置 の 標準 的 素子 と し て 使わ れ て いた 。 そ の 前 に は 磁気 ドラ ム が 
主 記憶 装置 に 用 いら れ て いた 。 電 磁 遅 延 線 、 水銀 タン ク , プラウ 
ン 管 , な ど が 使わ れ た こと も ある 。 し か し それ ら が 将来 また 使わ 
れる 可能 性 は 少な い 。 将 来 の 可能 性 と し て は , 光 メ モリ ー, 超 電 
導 メ モリ ー な ど が 有望 視 さ れ て いる 。 
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1.4 制御 方 式 


基本 的 な 者 え か た 私 達 が 何 か 複 雑 な 仕事 を する 場合 

何人 か で 分 業 に し て 流れ 作業 で 行 な う (流れ 作業 方 式 ) 

最初 か ら 最後 まで 全部 を 一 人 で 行なう (逐次 作業 方 式 ) 
の 二 つ の 方 法 が ある 。 そ れ と 同じ よう に , 複雑 な 仕事 を する 自動 機械 の 
方 式 と し て も 

単 能 機 を た くさ ん 並べ て 流れ 作業 で 処理 する 

順序 制御 の で きる 汎用 機 1 古 で 処理 する 
の 二 つ の 方 法 が ある "『。 た と えば , 家具 を 作る 場合 を 考え て みる と , 前 者 
な ら ば , 木 を けず る 機械 、 型 に 合わ せ て 切る 機械 、 穴 を あけ る 機械 、 組 
み 立 て る 機械 塗装 する 機械 な ど を 並べ て , 半 成品 を 順に 送っ て ゆく 仕 
掛け に すれ ば よい 。 こ れ は 方 式 と し て 簡単 で あり , 比較 的 容易 に 実現 で 
きる で あろ う 。 そ れ に 対し 後者 の 方 式 を 採用 する と すれ ば , まず 木 を け 
ずり , 次 に 型 に 合わ せ て 切り , 次 に 穴 を あけ , 次 に 組み 立て を し , 最後 
に 卒 装 を する ーー 一 それ を 全部 1 台 で や る と いう , ロボ ポッ ト の よう な 装置 
に な る 。 これ を 実現 する こと は 相当 に むつ か し いで あろ う 。 し か し , 後 
者 に は 前 者 より 有利 な 点 が いく つか ある 。 それは 

工程 の 変更 が 容易 ( 多種 小 量 生産 が 可能 ) 

非常 に 複 殺 な 工程 に も 対処 で きる 
と いう こと で ある 。 前 者 の 方 式 だ と , 工程 を 変更 する た びに 機械 を 追加 
し た り , 取り 除い た り , 並べ 奪え た りす る 必要 が 起こ りう る 。 し か し 後 
者 の 方 式 な ら ば 単に 制御 方 法 を 変更 すれ ば 済む 。 ま た 前 者 の 方 式 で 百 工 
程 の 作業 を する に は 原則 と し て 百 台 , 千 工 程 な ら ば 千 台 の 機械 を 並べ な 
けれ ば な ら な い 。 そ れ に は 多額 の 費用 が か か る 。 し た が っ て , 非常 に 複 
雑 な 仕事 の 場合 に は 後者 の 方 が むし ろ 経 済 的 に な る の で ある 。 





† オー トメ ーション 工場 の トラ ンス ファ ー・ マ シン は 基本 的 に 前 者 の 方 式 . 
マシ ニン グ ・ セ ンタ ー は 後者 の 方 式 を 採用 し て いる 。 
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コン ピュ ー タ ー の 場合 自動 計算 機 の 方 式 と し て も , 左記 と 同様 な 
こと が 考え られ る 。 前 者 の 方 式 な ら ば ,、 た くさ ん の 演算 装置 を 用 意 し て 
お いて , 計算 式 に 合わ せ て それ ら を つない で , 計算 を 行なう こと に な る 。 
た と えば , (4 填 )/(c 寺 ) の 計算 を する の で あれ ば , 次 の よう な 
回 路 を 構成 し て 処理 する わけ で ある 。 


加算 器 





アナ ログ ・ コ ンピュータ ー' は 実際 に その よう な 方 式 を 採用 し て いる 。 
また , 近年 は 超 高 速 計算 機 ( ス ー パ ー・ コ ンピュータ ー) な ど に お いて , 
パイ プラ イノ ン 方 式 と いう 形 で ,. この よう な や りか た が 部 分 的 に 使わ れ て 
いる 。 
し か し , 普通 の コン ビュー ター では, 後者 の 方 式 が 用 いち れ て いる 。 
た と えば 上 の 例 と 同じ 計算 (z 十 )) プ (c 二 忌 ) を する の で あれ ば , 
1) Z と め を 加え る 。 そ の 結果 (s と する ) を 記憶 装置 に 入れ る 。 
2 ) c と を 加え る 。 そ の 結果 (7 と する ) を 記憶 装置 に 入れ る 。 
3 ) s を / て 割る 。 
と いう 形 で 処理 する 。 こ の よう な 方 式 を と れ ば , 加算 器 、 乗算 器 、… な 
ど は 各 1 台 あ れ ば よく , それ ら を 適当 な 順序 で 用 いる こと に より , どん 
な 計算 で も で きる , と いう 利点 が ある 。 


ーー--] 制御 装置 トーー 


動作 順序 や 接続 関係 を 制御 






演算 装 首 


記憶 装置 








† 数 値 を 電圧 で 表し , 電圧 の 和 , 差 , 積 。 商 を 作る 回 路 を つなぎ 合わ せ 
て 計算 を 行なう コン ピュ ー タ ー。 以 前 は デジ タル ・ コ ンピュータ ー と 互角 の 
塾 力 を も っ て いた 。 現在 で も 自動 制御 関係 な ど で 使 われ て いる 。 
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プ ブログ ラム 人 次 作業 方 式 (20 ペ ー ジ 参照 、 そ こ で は 「 後 者 」 と 呼 
ん で いる ) の シス テム に お ける 作業 手順 (動作 順序 ) を 記述 し た も の の 
た と えば , 前 ペー ジ 中 央 付近 に 例示 し た 1)、2)、3) と いう 計算 手順 
は プロ グラ ム で ある 。 ま た , た と えば 自動 炊飯 器 の 
強火 で 加熱 一 一 100C て に な っ た ら 有 火 に する 一 一 20 分 後に OFF 
と いう の も プロ グラ ム で あり , 全 自 動 洗たく 機 の 
吸 ポ ーー 2 分 間 予 洗 一 一 排水 一 一 吸水 一 一 洗剤 投入 一 一 5 分 隊 
洗う 排水 一 一 吸水 3 分間 すす で 一 一 排水 一 一 吸水 
7 分 間 す すぐ 一 排水 一 一 脱水 一 一 10 分 間 乾 燥 一 一 プ ブザー 鳴ら す 
と いう の も プロ グラ ム で ある 。 
自動 炊飯 器 の プロ グラ ム は 変え られ な い (固定 プロ グラ ム ) の が 普通 
で あろ う 。 全 自動 洗たく 機 に は 、 プロ グラ ム を 変え られ な いも の , 時 間 
だ け を 調節 で きる も の , 自由 に 変え られ る も の な ど , いろ いろ ある 。 コ 
ンピュータ ー の プロ グラ ム は , 当然 , 自由 に 設定 で き な け れ ば 困る 。 
プロ グラ ム を 機械 に セッ ト す る に は , どう すれ ば よい だ ろう ? 単純 
な 機械 な ら ば , ボタ ン 操 作 で セッ ト で きる で あろ う (た と えば 録音 や 録 
画 用 の タイ マー)。 し か し 長い 複雑 な プロ グラ ム を セッ ト す る に は , ボタ 
ン , ダイ ヤル 、 スイ ッ チ で らい で は 無理 で ある 。 そ こ で , プログラム を 
和 号 化し て 入力 する , と いう 方 法 を と る 。 狂 意味 で プログラム と いう 
素 朱 【〔 参 考 ]※ ※ ※※ 素 ※ 素 楽楽 ※ ※ 素 素 楽 
プロ グラ ミン グ  ① 計画 を 立案 する こと  ⑫ 電子 計算 機 を 使 
う 場合 に 、 それ が どん な 手順 で 仕事 すべ きか を , 機械 が 解読 で きる よ 
うな 特別 な 形式 (プロ グラ ム ) に 作り あげ る こと 。 
ー 一 広辞苑 (第 二 版 ) よ り 引 用 
program (me) 1 プロ グラ ム 、, 番組 , (行事 な どの ) 次 第 書 
2 子 定 , 計画 、 計 画 表 3 (政党 の ) 綱 領 4 庁 言 
5 ( 古 ) 公示  [GK 2g7z72 public notice] 
ー 一 研究 社 の 新 英和 大 辞典 より 抄録 
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コン ピュ ー タ ー の 場合 演算 装置 の 基本 的 な 機能 は 電卓 と 同じ よう 
な も の で ある か ら , コン ピュ ー タ ー の プロ グラ ム の 内 容 は , だ いた い 「 電 
卓 で 計算 する と き の 計 算 手順 ] の よう な も の , と 考え て よい 。 







演算 業 直 





記 層 装 曽 


それ を 「 符 号 化 (coding) する 」 と いう の は ,「 機 械 が 解読 し 実行 で き 
る よう な 形式 で 表現 する ] こと で ある 。 コ ンピュータ ー は 機械 で ある か 
ら , 単純 で 規則 的 な 処理 し か で き な い 。 日 本 語 で 書か れ た 計算 手順 を 解 
読 し て 実行 する , な ど と いう こと は , ちょ っ と 無理 で ある 。 も っ と 単純 
で , 機械 的 に 処理 し 易い 形 で 書か れ て いな けれ ば 困る 。 

た と え ぇ ば, 次 の よう な 形 で 表現 し て あれ ば , 機械 的 に 処理 する こと が 
比較 的 容易 で あろ う 。 





十 の ぃ N 
十 の の 7 
S 7 7 





この よう な 表 を 「 記 悦 ] させ て お いて , 1 ステ ッ プ ずつ 順に 実行 さき せれ 


ば , 計算 が で きる わけ で ある 。 
順に 取り 出す ! 解読 し て 制御 |^~ 


演算 装 汗 
lglglclZ1 上 | sl 朋 引 上 上] | 


計算 手順 を 記憶 し て お く デー タ の 記憶 場所 
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1 アド レス 方 式 機械 処理 の 作業 手順 表 の 形式 は いろ いろ ある 。 前 
ペー ジ に 例示 し た 形 は 「 3 アド レス 方 式 」 と 呼ば れ て いる ( 各 ス テッ プ 
で , 被 演算 数 2 人 筒 と 結果 1 箇 、 計 3 箇 の 記憶 場所 を 指定 する か ら )。 そ れ 
に 対し , 次 の よう な 表し か た も 考え られ る 。 こ ちら は , 各 ス テッ プ で 指 
示さ れる 記憶 場所 が 1 筒 だ け な の で 「 1 アド レス 方 式 ] と 呼ば れ て いる 。 





、 作業 の 種類 作業 の 対象 ( 意 味 ) 
LOAD  。 る を ( 累 算 器 に ) も っ て こい 
ADD ヵ ( その 結果 に ) ヵ を 加算 せよ 
STORE ゞ (その 結果 を ) s に 格納 せよ 
LOAD c c を ( 累 算 器 に ) も っ て こい 
ADD ル 4 (その 結果 に ) 7 を 加算 せよ 
STORE / ( その 結果 を ) 7 に 格納 せよ 
LOAD 5 S を ( 累 算 器 に ) も っ て こい 
DIVIDE / ( その 結果 を ) 7 で 除算 せよ 
STORE の ( その 結果 を ) z に 格納 せよ 
人 oo 


ここ で 昌 算 器 (accumulator) と いう の は , 演算 結果 が 入る レジ スタ ー 
で , それ が すぐ 次 の 演算 の 被 演算 数 レジ スタ ー と し て 使用 で きる も の を 
いう (要する に 電卓 の 表示 窓 に 対応 する レジ スタ ー)。 













記 境 装置 





被 演算 数 レジ スタ ー 


この よう な 方 式 は , 合計 や 連 乗 の 計算 に 便利 で ある 。 





( 例 ) 4 十 の ヵ 二 c=s の 計算 ( 例 ) 。X ヵ j※c=/ の 計算 
作業 の 種類 "作業 の 対象 作業 の 種類 作業 の 対象 
LOAD Z LOAD Z 
ADD / MULT. ヵ 
ADD c MULT. c 
STORE s STORE / 
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令 の 構成 、 左記 の よう な 作業 手順 表 の 各 ス テッ プ は , 命令 (コン 
ピュ ー タ ー に 対す る 命令 、 と いう 意味 。instruction) と 呼ば れ , 一 定 の 
形式 で 表現 され , 記憶 され る 。 1 アド レス 方 式 の 場合 に つい て いえ ば , 
だ いた い 次 の よう な 形式 を と る 。 


機能 部 番地 部 
だ トト IO 


癒 令 コー ド 番 地 


合 


( 例 ) 101101000100101110110 


命令 コー ド (instruction code, operation code) は 作業 の 種類 を 符号 
で 表し た も の で , 記憶 装置 の 読み 出し , 書き 込み 、 整数 お よび 洋 動 小数 
点数 の 加減 乗除 、 シフ ト ( 桁 移動 ), 数 値 や 文字 列 の 比較 入出 力 装 汗 の 
制御 な ど , 百 種類 ぐら いあ る の が 普通 で ある 。 
番地 (address) は 記憶 装置 の 中 の 位置 (どこ か ら 読 み 出 すか , どこ に 
書き 込む か ) を 示す も の で , 0 番 か ら 始 まる 一 連 番 号 で 指 太 が する の が 普 
通 で ある 。 
実際 の し くみ コン ピュ ー タ ー の 内 部 の し くみ は , 原理 的 に は 以上 
の と お り で あり , 初期 の 時 代 に は 実際 この よう な 構造 の コン ピュ ー タ ー 
が 使わ れ て いた 。 し か し 近年 は , 処理 を 高速 化す る た め , また , 大 規模 
な 問題 の 処理 を 容易 に する た め , 

複数 筒 の 累 算 器 を 使用 する 

番地 指定 方 式 を 多様 化す る 

命令 の 形式 も 多様 化す る 
な ど , 各種 の 工夫 が 加え られ , 実際 の 構造 は か な り 複雑 な も の に な っ て い 
る 。 一 方 、 マ イク ロ ・ コ ンピュータ ー (特に 4 ビッ ト や 8 ビッ ト の も の ) 
は , 情報 を 語 単位 で な く 文 字 単 位 で 扱う の で , 上 記 と は か な り 違 っ た 構 
造 に な っ て いる 。 コ ンピュータ ー の 専門 家 に な る の に は , それ ら に つい 
て の 詳し い 知識 が 必要 で ある が , 一 般 の 利用 者 は 上 記 の 程度 の こと を 常 
識 と し て 知っ て いれ ば 十分 で あろ う 。 な ぜ な ら , 普通 の 仕事 の プロ グラ 
ム は , これ か ら 説 明 す る 「 プ ログ ラミ ング 言語 」 で 書け ば よい か ら で あ る 。 
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1.5 プロ グラ ミン グ 言 語 


プロ グラ ム を 作成 する に は , 
プロ グラ ム を まず 自然 言語 (私 達 の 場合 な ら 日 本 語 ) で 書く 
次 に それ を 機械 語 (前 ペー ジ で 述べ た よう な 形 ) に な お す 
と いう の が 一 つの や りか た で ある 。 常識 的 に 考え る と , これ で べつ に 不 
都合 は な さそ う で ある 。 実際 .、 コン ピュ ー タ ー の 発展 の 初期 の 時 代 に は 。 
この よう な 方 法 で プロ グラム を 作っ て いた 。 

し か し , 複 維 な プロ グラ ム を こう いう 方 法 で 作る の は 非常 に た い へ ん 
で ある 。 第 一 に 問題 に な る の は , 自然 言語 で 書か れ た プロ グラ ム を 機械 
語 に 書き な お す ( 待 号 化す る ) 作業 量 で ある 。 長 い プ ログ ラム だ と , 数 
f 行 一 数 万 行 に 及ぶ も の が ある 。 取り 扱う デー タ の 箇 数 も , 数 万 ~ 数 十 
用 に な る こと が ある 。 そ の 番地 を 割り 当て た り , 複数 人 筒 の レジ スタ ー の 
活用 法 を 考え た り し な が ら , 命令 の 列 の 形 に な お し て ゆく の に は 多大 の 
労力 を 必要 と する 。 

それ で も , た い へ ん な 手間 を か け て 作っ た プロ グラ ム が 正常 に 動い て 
くれ れ ば , まだ よい 。 も し も 正常 に 動か な か っ た ら ど うす る か ? 長大 

な 命令 の 列 を 調べ て 原因 を 見 つけ 出し 修正 する の が , これ また た い へ ん 
で ある 。 ま た , 自然 言語 に は あい まい な と ころ が ある か ら ,「 自 然 言 語 で 
書か れ た プロ グラ ム 」 は , 解釈 の し よう に よっ て , 正しい プロ グラ ム に 

な っ た り 正 し く な い プ ログ ラム に な っ た りす る こと が あり うる 。 

そう いう 問題 点 を 一 挙 に 解決 する た め に , 

プロ グラ ム を 記述 する た め の 人 工 言語 を 作る 

利用 者 は その 言語 に よっ て プロ グラ ム を 書く 

その 言語 か ら 機械 語 へ の 翻訳 は コン ピュ ー タ ー で 行なう 
と いう 方 式 が 開発 され た 。 こ の 「 プ ログ ラム を 記述 する た め の 言 語 」 の 
こと を , プロ グラ ミン グ 言 語 (programming language) と いう 。 今 日 
で は , 大 部 分 の プロ グラ ム が , この よう な 方 式 に よっ て 作成 され て いる 
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代表 的 な プロ グラ ミン グ 言 語 と し て は , 次 の よう な も の が ある 。 





名 称 寸評 
BASIC 簡単 で 覚え 易い 
FORTRAN 科学 技術 計算 用 
COBOL 事務 処理 用 
PL/I 万 能 言語 
ALGOL 言語 の 理想 を 追求 し た も の 
PASCAL ALGOL を 単純 化 、 実 用 化し た も の 
LISP 人 工 知能 な どの 高度 な 情報 処理 用 
SNOBOL 文字 列 処理 用 
APL コン パク ト に 書け る 
ADA 機能 強大 
コン パイ ラー プロ グラ ミン グ 言 語 で 書か れ た プロ グラ ム を , 機械 


語 ( ま た は それ に 近い 形 ) に 変換 する 作業 を コン パイ ル (compile), それ 
を 行なう 手段 (コン ピュ ー タ ー て で 翻訳 を 行なう た め の プ ログ ラム ) を コ 
ン パ イラ ー (compiler) と いう 。 

プロ グラ ミン グ 実際 に は コン バイ ル 
を し て すく 実行 する 
こと が で きる の で 、 
外 か ら は 「 プ ログ ラ 


言語 で 書か れ た - 一 テ 
プロ グラ ム 





機械 語 (また は ミン グ 言 語 で 書か れ 

それ に 近い 形 ) た プロ グラ ム 」 を 有 即 

の プロ グラ ム 実行 し て いる よう に 
! 見 える 。 


ー テ - 計算 結果 
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1.6 オペ レー ティ ング ・ シ ステ ム (OS) 


昔 (初期 の 時 代 ) の コン ピュ ー タ ー の 利用 形態 は , 非常 に 単純 で 常識 
的 で あっ た 。 要するに, 一度 に 一 つの 仕事 し か し な か っ た 。 た と えば 

まず, 前 の 人 の 仕事 の 終る の を 待つ 

自分 の 番 が 来 た ら 、 コン ピュ ー タ ー の 状態 を 白紙 に も ど し 

プロ グラ ム を 入力 し 

デー タ を 入力 し 

計算 を し 

(や が て 結果 が 印刷 され る ) 

終っ た ら 次 の 人 に コン ピュ ー タ ー を 引き 渡す 
と いう ぐあい で ある 。 当 時 は 処理 速度 が 遅く て ,. ちょ っ と し た 計算 に も 
数 十分 か か り 、 ま た, 利用 者 が 比較 的 少な か っ た の で , この よう な 使い 
か た で よかっ た 。 しかし, その後 , コン ピュ ー タ ー が 速く な っ て , 簡単 
な 仕事 な ら ば 数 秒 で 終る よう に な り , 同時 に , 利用 人 口 お よび 仕事 の 件 
数 が 急増 し た の で 、 コ ンピュータ ー を も っ と 能率 よく 運転 する こと か が 必 
要 に な っ て きた 。 ま た , 大 容量 の 記憶 装置 が 普及 し た の で , よく 使う プ 
ログ ラム や デー タ は 記憶 装置 に 常時 入れ て お く よ う に な っ た 。 そ こ で 

コン ピュ ー タ ー を 皆 で 一 緒 に 使う 

同時 に で きる こと が あれ ば , な る べく 同時 に 行なう 

それ ら の 管 理 を コン ピュ ー タ ー が 行なう 
と いう 方 式 が 開発 され た 。 こ れ が オペ レー ティ ング ・ シ ステ ム (0S, 
operating system) で ある 。 こ れ に も 長い 歴史 が あっ て , 最初 は 単純 な 
「 自 動 運 転 シ アステム] で あっ た も の が , し だ い に 機 能 を 追加 きれ て 複雑 
な し くみ に な っ た の で ある が , 今日 の OS は , だ いた い 次 の よう な 機能 
を も っ て いる 。 
記憶 場所 の 管理 記憶 装置 を 複数 の 人 が 分 け て 使う の で ある か ら 。, 

誰 は どの 場所 , と いう 割り 当て を 行ない 、 常 に その 場所 を 使う よ 

うに , また 他人 に 迷惑 を か け な い よう に , 管理 する 。 


この 間 , 二 つ の こと を 同時 に 
は し な い 。 た と えば 入力 中 , 出 
力 中 は 計算 は 休止 。 
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人 入出 力 の 管理 現在 使わ れ て いる 大 部 分 の コン ピュ ー タ ー に お い 
て は , 入力 , 処理 (計算 )、 出 力 の 機構 が 独立 し て いて 
ji. プログラム や デー タ を 入力 し て 記憶 装置 に 入れ る 
ji. 記憶 装置 に 入っ て いる プロ グラ ム を 実行 し . デー タ を 処理 
し て 結果 を 記憶 装置 に 入れ る 
操 。 記憶 装置 に 入っ て いる 内 容 を 出力 する 
を 同時 に (平行 し て ) 行なう こと が で きる 。 そこで, ある 人 の 処 
理 を し な が ら , 同時 に , あと の 人 の プロ グラ ム や デー タ を 入力 し 
て 記憶 装置 の 一 部 (いわ ば 待合 室 ) に 入れ て お き , 同時 に , 既に 
計算 が 済ん で 出力 待ち の 形 で 記憶 装置 に 入っ て いる 結果 を 出力 す 
る こと が で きる 。 こ の よう な 扱い を する た め の 業 務 (いわ ば 受付 
窓口 業務 ) を 行なう 。 ま た , 入出 力 に 異常 が あれ ば その 対策 を と 
る (た と えば プリ ンタ ー の 紙 が な く な れ ば オペ レー ター に 警告 )。 
ぐ 実行 管理 一 つの 計算 を 行なう に も , 
入力 コンパイル 編集! 実行 出力 
と いう よう に いく つも の 段階 が ある 。 こ れ ら が 連続 し て 円 滑 に 行 
な われ る よう に 管理 する 。 予定 時 間 を 超過 し た り , 異常 (たとえ 
ば 0 に よる 割り 算 ) が な び た び 起こ る よう な ら 仕 事 を 打ち 切る な 
どの 監視 も 行なう) 。 ま た , 非常 に 長 時 間 か か る 計算 を 中 断 し て , 
短い 計算 を 優先 処理 する と か , ある 仕事 の 途中 で ディ スク か ら の 
入力 待ち に な っ た と き , 待っ て いる 間 に 他 の プロ グラ ム を 実行 き 
せる な ど 、 き め の 細 か い 管 理 を 行なう 。 
その 他 利用 資格 の チェ ッ ク , 使用 料金 の 計算 、 運 転 日 誌 や 運転 
統計 の 作成 。 境 方 に ある 端末 機 や 他 の コン ピュ ー タ ー と の 間 の 通 
信 の 制御 、 各種 の 割り 込み の 処理 . な ど を 行なう 。 





† 編集 する (edit) と は ., いく つか の プロ グラ ム を つなぎ 合 わせ る こと 。 既 
存 プ ログ ラム の 組み 込み や , 分 割 し て 作成 し た プロ グラ ム の 結合 な ど に 必要 。 
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利用 者 が 作成 す | 


る プロ グラ ム 





オペ レー ティ ング ・ シ ステ ム 概 念 図 


私 達 は ハー ドウ ェ ア を 直接 に 使う の で は な く て 






ハー ドウ ェ ア 十 | オペ レー ティ ング ・ シ ステ ム 


(機能 は 単純 ) (高度 な 機能 を も つ ) 
と いう 複合 体 を 使う わけ で ある 。 
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ジョ ブ 制 御 言語 (job control language, JCL ) 利用 者 が オペ レー 
ティ ング ・ シ ステ ム に 情報 を 伝え る た め の 言 語 。 膨 大 な 仕様 で 全部 は と 
て も 覚え きれ な い が , 普通 は , 利用 登録 言語 指定 , 実行 方 法 の 指定 
ファ イル の 利用 法 、 ライ プラ リー の 呼び 出し か た ,、 な ど を 知っ て いれ ば 
十分 で ある 。 そ の 書き か た は , 機種 に よっ て , また 運営 方 法 に よっ て 異 
な る が , だ いた い 次 の よう な 順 褒 に な っ て いる 。 

1) JOB 制 御 文 先頭 に 置く 。 利 用 者 番号 、 利用 目的 (課金 コー ド ), 
ジョ プク ラス の 指定 出力 方 法 の 指定 , 打ち 切り 時 間 の 指定 な ど を 
行なう 。 い わ ば 、 利用 開始 手続 き で ある 。 

2) ファ イル 制御 文 ディ スク ・ フ ァイル な ど を 利用 する 場合 、 そ の 
ファ イル 名 な ど を 登録 する 。 

3) プロ グラ ミン グ 言 語 制御 文 使用 する プロ グラ ミン グ 言 語 の 種類 
や , 処理 に 関す る オプ ショ ン (選択 で きる 仕様 ) の 指定 な ど を 行 な 
う 。 こ れ に 続い て 。 ソ ー ス ・ プ ログ ラム を 入力 する 。 

4) 編集 制御 文 ライ ィ ブ ラリ ー・ プ ログ ラム その 他 , 既に ディ スク に 
入っ て いる プロ グラ ム を 組み 込ん だ り 修 正 し た りす る 。 

5) 実行 制御 文 実行 開始 を 指示 する 。 こ れ に 続い て 、 デー タ を 入力 
する 。 

6) 終端 の 印 当該 ジョブ の 入力 の 終端 で も る こと を 示す 。 

私 達 が 使う JCL 
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1.7 小 史 


1642 Pascal が 手 ま わ し 式 の 加算 機 を 発明 。 計 算 を 機械 で 行なう 
の 可能 性 を 示し た 

1822 Babbage が プロ グラ ム 制 御 に よる 機械 式 汎用 自動 計算 機 の 研究 
に 着手 。 以 後 約 50 年 に わた り 試作, 改良 を 続け る 

1944 リレー 式 計算 機 ハ ー バ ー ド MARK-{ 完成 。 電 気 的 論理 回 路 に 
よる 汎用 自動 計算 機 の 方 式 を 確立 し た 

1946 電子 計算 機 ENIAC が 完成 。 電 子 回 路 に よる 計算 の 可能 性 と 高 
速 作 を 実証 。 以 後 10 年 間 に わ た り 実 用 に 使わ れる 

1949 ブロ グラ ム 内 蔵 方 式 の コン ピュ ー タ ー EDSAC が 完成 。 基本 的 
な ソフ トウ ェ ア 技 法 が 開発 され る 

1950 年 代 コン ピュ ー タ ー が 商品 化 さ れ て 広く 使わ れる よう に な る . 
わが 国 で も 1955 年 か ら 1957 年 に か け て , リレー 式 , 真空 管 式 , パ 


世 


フ メ トロ ン 式 , トラ ンジ スタ ー 式 の 計算 機 が あい つい て 完成 。 


1960 年 代 プロ グラ ム 言 語 ,. オペ レー ティ ング ・ シ ステ ム メ , 遠隔 利用 


記号 処理 、 パ ター ン 認 識 な ど , 高度 な 利用 技術 が 進む 。 
1970 年 代 集積 回 路 技術 の 進歩 が 著しい コス ト 低 下 を も た らし , 利用 


分 野 が 急激 に 広がる 





開発 中 の TAC と 山下 英男 先生 (1958 年 
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2. 1 BASIC と は 


BASIC は 教育 用 に 開発 され た プロ グラ ミン グ 言 語 で ある 。 簡単 で 覚 
え 易 く 。 そ の わり に か な り の こと が で きる の て 広く 愛用 きれ て いる 。 
名 前 の 由来 Beginner's All-purpose Symbolic Instruction Code 
開発 し た 人 T.G. Kemeny と T.E. Kurtz (Dartmouth 大 学 ) 
完成 し た 年 。 1964 年 に 第 1 版 が 出 た 。 そ の 人 後 , 数 回 、 機能 の 拡張 が 行 
な われ て いる 。 
仕様 は 機種 に よっ て か な り 異な る 。 大 別して 次 の 3 種類 が ある 。 
簡略 BASIC 無く て も 済む 機能 を な る べく 〈 く 省き, 基本 的 な 部 分 
だ け を 残し た も の 。 
共 本 BASIC 国際 標準 規格 ' の 基本 BASIC 相当 の も の 。DATA, 
DEF, DIM, END, FOR, GOSUB, GOTO, IF, INPUT, 
LET, NEXT, ON, OPTION, PRINT, RANDOMIZE, 
REM, RESTORE, RETURN, STOP の 各 文 を 使用 で 
きる 。 
拡張 BASIC 各種 の 機能 を 大 幅 に 追加 し た も の 。 
本 書 で は , 基本 BASIC を 中 心 に 説明 する 。 





† 1979 年 に 決定 され た 規格 案 。JIS も ほぼ 同じ 内 容 に な る 見 込み 。 
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2.2 簡単 な 計算 と 入出 力 


2.2.1 台形 の 面積 


4 
右 の 図 の よう な 右 形 の 面積 を 計算 する 
プロ グラ ム を 作っ て みよ う 。 
〔 設 計 ) 計算 式 は 
ヵ 


S テ (4 十 ヵ ) ヵ / 2 

処理 の 手順 は 

1) デー タ 4, ヵ , ん を 読み 込む 。 
2) 面積 S を 計算 する 。 

3) 答 を 印刷 する 。 
と すれ ば よい で あろ う 。 手順 を 流れ 図 
(flow chart) で 表す と 右 図 の よう に 
な る 。 

【 製 作 ) BASIC で は 上 記 の 手順 1) 
を 次 の よう に 表す 。 

10 INPUT A,B,H S の 値 を 印刷 


| 入力 する 変数 の 名 前 
行 番号 「 入力 せよ 」 と いう 意味 


2, の 、 を 読み 込む 











手順 2) は 次 の よう に 表す 。 
20 LET 8=(A 十 B) *H ノ 2 





代入 先 計算 式 
行 番号 「 代 入 せ よ 」 と いう 意味 
手順 3) は 次 の よう に 表す (形式 は 手順 1) と ほぼ ば 共通)。 
30 PRTNT 8 
最後 に 実行 の 終り を 表す END 文 を 書く 。 
40 END 
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BASIC の 文法 一 (1 ) 一 式 と 代入 文 の 書き か た 
全 すべ て の 文 に 行 番号 を 付け る 。 

行 番号 に は 1 以上 9999 以下 の 交 数 が 使用 で きる 。 

プロ グラ ム は 行 番号 の 順に 書く も の と する 。 

文 は 原則 と し て 行 番号 の 順に 実行 され る 。 
変数 名 と し て は , 

美和 字 1 皇 まだ 注 ( 例 ) 芋 

代 字 1 字 の に 数 字 1 字 を 付す た も の  ( 倒 ) 1 
が 使用 で きる '。 
@ LET 文 (代入 文 ) は 次 の 形式 で 書く ”。 

行 番号 Em 変数 名 = 式 

計算 式 を 書く と き の 注意 。 

乗算 記号 は ※ 印 を 用 いる 。 (X 印 や ・ 印 は 使え な い ) 

除算 記号 は / 印 を 用 いる 。 ( 印 は 使え な い ) 
カッ コ は ( ) の み 。 た だ し 何 重 に も 使え る 。 
(悪い 例 ) A・B CXD EE G+:H 
(良い 例 ) A*B C*D E*E G/ 是 


(悪い 例 ) CO ノ /A*B 
(良い 例 ) C/(A*B) 

























の を 計算 し た v 場合] 





演習 1 誤り を 正 せ 。 
(1) -30 (2) (A+B)C (3) A・B 
2 BASIC の 式 に な お せ 。 








1 1 y 
(1) RES ( 2 ) 1 ( 3 ) 居 
の の 4 十 
( 4 ) 1 (5 ) の が 





† 3 字 以 上 の 変数 名 を 許し た り 、 LET の 省略 を 許す 機種 も ある 。 
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【 で き あ が っ た プロ グラ ム 〕 


10 
る 0 
3 0 
4 0 


TNPUT A,B,H 

LhET 8=(A 十 B ) *H/ ノ 2 
PRTINT 8 

END 


【 別 解 1) AB,、 HH の 値 を プロ グラ ム の 中 て で 直接 に 式 で 書い て も よ 
い 。 1 2 ケー ス だ け の 計算 な ら ば , この 方 が 簡単 , 明快 で ある 


10 
1 
1 る 
る 々 0 
3 0 
4 0 


LET A= テ 3 
LT B=8 
ET H= ニ 4 .5 

民生 8=(A 十 B ) *H/ る 
PRTNT 8 

EEND 


【 別 解 2) PRINT 文 に 式 を 書い て も よい の で , 次 の よう に 3 行 で 書 
の DO きる.。 


1 0 
3 0 
4 0 


TINPUT A,B,H 
PRTINT (A 十 B ) * 是 / ノ 2 
END 


〔 別 解 3 フロ グラ ム に 注 秋 を 付記 し た り , 結果 に 見 出し を 付け て 出 
力 す る こと が で きる 。 


5 
10 
る 0 
3 1 
3 る 
3 3 
3 4 
35 
4 0 


REM 一 一 DAITKET NO MENSEKT エ ーーー 
TINPUT A,B,H 

LET 8=(A 十 BB ) *H/ る 2 

PRTNT "DATKET NO MENSEKTI" 
PRTNT "AA テリ:A 


PRTNT "B= リ : 量 
PRTINT "TH= リ ":H 
PRTNT "8=W:8 
END 
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BASIC の 文法 一 (2 ) 一 PRINT 文 と REM 文 

PRINT の 右 に 書け る の は 

変数 名 ( 例 ) RE 

式 ( 例 ) 2* エ 

2 重 引 用 符 で 囲ん だ 文字 列 ( 例 ) リ YMO" 

それ ら を コン マ で 区 切っ て 並べ た も の 
( 例 ) A,B, 双 ,A*X 十 B, OM" 

な ど で あ る 。 式 が 書い て ある と , PRINT 文 の 実行 の 時 点 で 、 その 式 


「 の すす た 





















(文字 列 が ) 出力 され る 。 
原則 と し て PRINT 文 一 つが 出力 の 1 行 に 対応 する 。 

( 例 ) と 書け ば 横 に 並べ て 出力 され る 。 
( 例 ) PRINT A 
PRINT B 
た だ し , PRINT 文 の 最後 が コン マ ま た は セミ コロ ン で 終っ て いれ 
ば , 改行 され ず , 次 の PRINT 文 で は . いま 出力 し た も の の 右 に 続け 
て 出力 され る 。 
( 例 ) PRINT 4A, 
PRINT B 
@ 印字 項目 の 区 切り 記号 は コン マ と セミ コロ ン の 2 種類 が ある 。 セ 
ミコ ロン を 用 いる と 「 前 の 項目 に すぐ 続け て 次 の 項目 を 印字 せよ 」 と 
いう 意味 に な り 、 コ ンマ を 用 いる と 「 各 項目 を 一 定 の 長 さ (普通 15 字 
前 後 ) で 出力 せよ 」 と いう) 意味 に な る (た だ し 両者 を 混用 し た 場合 の 
規則 は も う 少 し 複 林 で ある )。 

@ REM 文 は プロ グラ ム の 中 に 注釈 (人 間 の た め の 覚 え 書 き ) を 付記 
する た め の も の で , 実行 上 の 効果 は 無い 。 注 釈 に は , 英字 , 数 字 お よ 
び 記 号 オー* ネ ノ .。: :( ) く > ヘ ニー! 7 1#%&& な ど が 使用 で き 
る 。 な お REM は remark の 意味 。 










PRINT A,B 










と 書け ば 縦 に 並べ て 出力 され る 。 










と 書け ば 横 に 並べ て 出力 され る 。 
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2.2.2 組み 込み 関数 

正 の 数 * と 角度 の (単位 は 度 ) を 読み 込み 

ー ソ 1 二 7r オ ダテ 
ys 三 logio + 
ys の 7cos の 
の 値 を 計算 し て 出力 する プロ グラ ム を 作っ て みよ う )。 

【 設 計 ) BASIC て 使用 で きる 関数 の 種類 は 機種 に よっ て 異な る が , 右 
の ペー ジ に 挙げ た 関数 は , だ いた い ど の 機種 で も 使用 で きる 。 こ れ だ け 
を 用 いて 上 記 の 計算 を する に は 次 の よう に 変形 し て 扱え ば よい 。 

3/ ャ ーッ ァ 13 
logio * デ log。x/log。10 
9 度 王 (z/180) 9 ラジ アン 

〔 プ ログ ラム 例 〕 9 を 変数 名 で 表す こと に する 。 

10 エ NWEU 定 秋 。 史 

る 々 0 LET YY ユー ニ SQR(1 十 SQR(X ) ) ]X^ へ (1 ユノ / ノ 83 る ) 

30 LET Y2=LOG(X)/LOG(10) 


40 LBT C= ニ 28.1416/ ノ 180 
50 LET Y3 る =EXP( 一 XX)*OCOS(OC*P) 


60 PRTMMm "マニ リロ : マ マユ 
0 務 正親 時 リ て る ぬ の ーF『。8 
80 RTIITm "8=W:Y る 
90 END 
注意 と 補足 〕 


1) 三角 関数 の 角度 の 単位 は ラジ アン で ある 。 
2) LOG(X ) は 自然 対数 で ある 。 
3) ATN(X ) は 一 z/ 2 か ら z/ 2 の 間 の 値 を と る 。 
) ( ) の 中 に 式 を 書い て よい 。 
) * 全 0 な ら ば , ITNT(X ) は ヶ の 整数 部 分 に 等 し い 。 


に 


5 
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BASIC の 文法 一 ( 3 ) 一 関数 の 書き か た 
の 表し か た は 機種 に よっ て 異な り , 
基 伴 X1Y X* ネ *Y 
な ど と 書く 。Y は 必ず し も 整数 で な く て も よい 。 
次 の よう な 関数 が 使用 で きる 。 
SQR(X) 平方 根 ツァ 
EXP(X) 指数 関数 e@\ 



























LOG(X) 自然 対数 flogzx 

STIN(X) 正弦 Sin 

COS(X) 余弦 COS 
単位 は ラジ アン 

TAN(X) 正 接 tan * 









ATN(X) 逆 正 接 arctan * 
ABS(X) 絶対 値 |x 


ー 1 (* く 0 の と まき) 
SGN(X) 符号 ニ 0 (* テ 0 の と き ) 
十 1 (*>0 の と き ) 


TINT(X) * を 越え な い 最 大 の 整数 
RND 乱数 ff 0 と 1 の 間 の 一 様 乱数 















演習 1 BASIC の 式 に な お せ 
(1) Y1 一 *2< (2) log log x (3) @** 


(4) sin10* (5) |+| 一 arctan y 
2 正 の 整数 ヵ と 正 数 Z を 読み 込み 、 一 辺 の 長き さ が 4 の 正 ヵ 角形 
の 面積 


_/@\“ の 
$=( 久 tan (ZZ ) 
を 計算 し て 出力 する プロ グラ ム を 作れ 。 





† MZ-80 で は LOG が 常用 対数 を 表す の で 注意 を 要する 。 
†† 機種 に よっ て は ,RND( X ) と 書く 。X は 単なる 形式 的 引数 の こ 
と も あ り 。 出発 値 設定 方 法 の 指示 に 用 いら れる ご も ある 。 
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2.2.3 応 用 問 題 
1  ( 和 差 積 商 ) 
ーー つの 数 z, ヵ を 入力 し , その 和 , 差 , 積 。 商 を 計算 し て 出力 する プ 
ログ ラム を 作れ 。 
2 (単位 換算 ) 
次 の 諸 量 の 単位 換算 を 行なう プロ グラ ム (一 方 の 単位 で 表 き れ た 値 を 
入力 し 他方 の 単位 に 換算 し て 出力 する ) を 作れ 。 
1 ) セ 氏 温度 C つ カ 氏 温度 F 
(公式 C=(5/9 )・(F -32)) 
jn) インチ omm 
(公式 1 イン チ テ 25.4 mm ) 
ボ ポンド okg 
(公式 1 ポン ド 0.45359 kg ) 
iv ) 馬 カ ワッ ト 
(公式 1 馬 カ =736 ワ ッ ト ) 
v ) 気圧 ミリ バー ル の mm 水銀 柱 
(公式 1 気圧 三 1013.25 ミリ バー ル = テ 760 mmHg ) 
秒速 m 時 速 km 
(公式 秒速 1m= 時 速 3.6 km) 
vi) ラジ アン 避 度 
(公式 1 ラジ アン = テ 180/z 度 ) 
3 (指標 値 ) 
次 の 指標 値 を 計算 する プロ グラ ム を 作れ 。 
1 ) 偏差 値 
(公式 偏差 値 (( 点 数 一 平均 点 )/ 標 準 偏差 ) X10 二 50) 
ii) 不快 指数 
(公式 不快 指数 三 0.99 メ 最高 気温 十 0.36 メ 平均 露点 温度 十 41.5) 
近 ) デシ ベル 


(公式 1db 三 20 logo (当該 値 / 基 準 値 )) 


ュ ン 


拓 


ュー 


Vi 
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4 (面積 , 体積 な ど ) 
次 の 値 を 計算 する プロ グラ ム を 作れ 。 
i) 底辺 4Z, 高き ん の 三角 形 の 面積 
ii ) 半 僅 ヶ の 円 の 面積 
ii ) 半径 / の 球 の 体積 お よび 表面 積 
(公式 V=(4/3 )z7? S テ 4 ァ 7?) 
iv ) 底面 の 半 伴 ヶ 高き ん の 円 雛 ( す い ) の 体積 
(公式 V=(z/ 3 ) ヶ 2 ) 
v ) 輸 環 面 (torus、 ドー ナツ 形 ) の 表面 積 
(公式 S=4zZZR/ ヶ ) 
vi ) 主軸 の 長き 22, 2 の , 2c 
の だ 円 体 の 体積 
(公式 V=( 4 /3 )zZ2c) 
5 (精度 を 調べ る ) 
次 の 値 を コン ピュ ー タ ー で 計算 し , 厳密 な 値 と 比較 せよ (上 厳密 な 値 の , 
小数 点 以下 12 桁 ま で を 下記 カッ コ 内 に 示す )。 
Y2 (1.414213562373 ) 
log。2 (0.693147180560 ) 
@! (2.718281828459 ) 
sin10' (0.173648177667 ) 
arctan 1 (0.785398163397 ) 
6 (三角 関数 ) 
ge と / の 値 を 入力 し , 次 の 恒等式 の 左辺 と 右辺 を 別々 に 計算 し . それ 
ぞ れ の 値 と その 差 を 出力 する プロ グラ ム を 作れ 。 
sin(g 十 /) 三 sin 6 cos // 十 cos Z Sin / 
cos(g 十 太 ) 三 cos coS が 一 Sin @ Sin / 


tan 十 tan // 


tan(g 十 記 ) ニ PP の 
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2.3 くり か え ぇ し 


2.3.1 数 表 を 作る 
1 か ら 10 ま で の 整数 の , 2 乗 。 逆 数, 平方根 の 数 表 を 作っ て みよ う )。 
【 設 計 ) N の 値 を 1 か ら 10 ま で 変え て 
N N2 1 /N yN 
の 値 を 印刷 すれ ば よい 。 
〔 製 作 ) BASIC で は , これ を 次 の よう に 書く 。 
10 FOR N=1 TO 10 


1 
行 番号 「N の 値 を 1 か ら 1 0 まで 変え て 
以下 の こと を 実行 せよ 」 と いう 意味 





る 20 PRINT N,N*N,1/N,SQR(N) 





I 1 (| 1 1 
行 番号 N NZ 1/N YN 
「 印 刷 せ よ 」 
と いう 意味 印刷 すべ き 内 容 


30 NEXT NRN 

行 番号 「N を 次 の 値 に 変え て , FOR の 次 の 文 に も どれ] 
と いう 意味 。 反 復 部 分 の 終端 を 示す 。 
反復 が 終る と 次 の 文 に 進む 。 

40 END 

[で き あ が っ た プロ グラ ム ] 

10 EEOR N=1] TO 10 

20 PRTITNT N,N*N,1/N,8SQR(RN) 


30 NEXT R 
440 選 ND 


2.3 くり か える し 43 
BASIC の 文法 一 (4 ) 一 FOR 文 , NEXT 文 
人 FOR 文 の 書き か た は 

文 番号 FOR 変数 名 = 始 値 TO 終値 
で ある 。 そ の 右 に 「STEP 増分 ] を 付け て も よい 。 
( 例 ) 7 FEOR エ =2 TO 8 8STEP S3 
増分 を 書か な けれ ば 増分 1 と な る 。 
始 値 、 終値 増分 と し て は , 定数 、 変数 は も ちろ ん の こと , 一 般 
に 算術 式 を 書く こと も 許さ れ て いる 。 そ の 値 は 0 や 負数 で も よい 。 ま 
た , 必ず し も 整数 で な く て も よい 。 
( 例 ) 1 EEOR A=0 TO 一 3 STEBP 一 1 


25 FEOR C=D TO 互 +E 
60 FOR H=2 TO 3 STEP 0.5 


た だ し , 0.1 な ど を 増分 と し て 用 いる と, 丸め 誤差 の た め に 反復 回 数 が 
思い どおり に な ら な いり 場合 が ある の て 注意 する こと 。 

$ NEXT 文 の 書き か た は 

文 番 号 NEXT 変数 名 



















(出力 例 ) 





演習 1 の 値 を 1 か ら 0.1 お き に 2 ま て 変え て , 
ッ デ 2 巡 十 3 ァ 一 1 
の 値 を 計算 し 印刷 する プロ グラ ム を 作れ 。 
2 2, の , c, mi。s。 ブ ァ の 値 を 読み 込み 、 * の 値 を ia か ら x 
まで 4* お き に 変え て ッ テ gx? 十 の px 十 c の 値 を 計算 し 印刷 す 
る プロ グラ ム を 作れ 。 
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2.3.2 級 数 の 和 
級数 


ま 。1、】 1 
TIMETAMMMMTT 


の 和 を 計算 する プロ グラ ム を 作っ て みよ う 。 

〔 設 計 ) ん の 値 を 0 か ら 1 0 ま て 変え て , 第 を 項 4。 ニ 1/ を ! の 値 を 計 
算 し 合計 すれ ば よい で あろ う 。g4 の 値 を 計算 する に は , ん ! の 値 を 求 
め て 逆数 を と る , と いう 方 法 も 考え られ る が , 

N 。 間 1 1 
を (を -19! 4 の 
と いう 関係 を 用 いて , 

の o 三 1 

Zx 三 の 1/ ん (を ん = テ 1, 2,。 …, 10) 
の 形 で 計算 する 方 が 簡単 で ある 。 そ の 合計 を 求め る に は , 第 を 項 ま で の 
部 分 和 を S。 と し て , や は り 瀬 化 式 の 形 

S。 = 1 

S4 王 S4」 十 6 ん (を =1, 2, …, 10) 
で 計算 する こと が で きる 。 な お , gg, S。 が 計算 され れ ば , 以後 は 、 2 
Sx-i は 必要 な いか ら , それ を 消し て 同じ 場所 に 書き 込む こと に する と 。, 
記憶 場所 は 一 般 項 の 部 分 和 の た め に 各 1 語 あ れ ば よい 。 

[プロ グラ ム 例 〕 











4 二 


10 L 選 T〒 A= テ 1 ュ 一 般 項 、 最初 は 1 
る 0 華 ET 8=1 ュ 部 分 和 最初 は 1 
30 FOR KK= ニ 1 TO 10 

4 0 攻 選 T〒 A ニ A/ 擬 2 の 計算 
5 0 攻 選 T〒 8S=8 十 A 部 分 和 に 加え 込む 
60 NEXT 人 K 

70 PRINT 8 結果 の 印刷 


80 END 


2.3 くり か る し Eb1 


1 


省 III に 





(総和 2 の 計算 法 〕 一 般 に 、 光 x, は 次 の よう に し て 計算 で きる 。 


最初 , 部 分 和 の 値 を 0 に し て お く 





= 1。 2。…。 2 に つい て 反復 FOR 文 






部 分 和 に x: を 加え る 


NEXT 文 


(終了 時 の 部 分 和 の 値 が %+ で ある 。) 


誠 


選 | 


刑 川上 上 上 上 


演習 1 左記 の プロ グラ ム を 改造 し て , 中 間 結 果 4。 S4( を = 0, 1 
… 9 ) を 印刷 で きる よう に せよ 。 
2 左記 の プロ グラ ム を 改造 し て , 
2 3 10 
すす 3 すす 5 
の 値 を 計算 で きる よう に せよ (の 値 は 最初 に INPUT 文 で 
読み 込む )。 
3 * お よび ヵ z の 値 を 読み 込み 、 次 の 級数 の 和 を 計算 し 印刷 する 
プロ グラ ム を 作れ 。 








Y* y* 上 2 
ru の 1 
。 ee ーー 
(2) x 3「 キー1) 1 
(3) sin *ー SIn 2 土 … 十 (一 1)7! 2 
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2.3.3 応 用 問 題 

1 (数 表 を 作る ) 

次 の 数 表 を 出力 する プロ グラ ム を 作れ 。 

1 ) の =0" か ら 90* ま で 10* お き の 

sin の cos の tan の 
の 数 表 。 

ji) ャ テ 0.1 か ら 2.0 ま で 0.1 お き の 常 用 対数 logi。 の 数 表 。 

沿 ) zZ 三 1 か ら 10 まで の z! の 数 表 。 

2 (料金 早見 表 ) 

が ソリ ン ・ ス タン ド 用 の 料金 早見 表 を 作り た い 。 単価 を 4 種類 (製品 
の 種類 な ど に よっ て 異な る 。 例え ば, リッ ター あたり 138 円 , 145 円 , 
155 円 、 170 円 ) 読み 込み 。 1 リッ ター か ら 0.1 リ ッ タ ー お き に 30 リ ッ タ 
ー ま で の 料金 表 を 出力 する プロ グラ ム を 作れ 。 

3 (複利 計算 ) 

元 金 1 万 円 を 複利 で 運用 し た ら 1 年 後 。 2 年 後 、…, 20 年 後に いく ら 
に な る か (元利 合計 ) の 表 を 作り た い 。 3 段階 の 年 利率 (例え ば , 3.5 
る, 5 多 , 6 多 ) を 読み 込み 、 上記 の 表 を 出力 する プロ グラ ム を 作れ 。 

4 (積立 預金 ) 

毎年 1 万 円 を 積立 預金 し た ら , 1 年 後 。 2 年 後 、…, 20 年 後 の 元 利 合 
計 が いく ら に な る か に つい て , 前 問 と 同様 の 表 を 出力 する プロ グラ ム を 
作れ 。 

5 (年 金 ) 

退職 金 1000 万 円 を 原 衣 と し , 毎年 100 万 円 ずつ 引き 出し て 使用 し た と 
し て , 10 年 後 ま で の 毎年 の 元利 合計 を 計算 する プロ グラ ム を 作れ 。 た だ 
し 頂 入れ 時 点 に は 引き 出さ ず , 1 年 後 か ら 引 き 出 す も の と する 。 ま た , 
利率 は 前 記 3 と 同様 に 3 段階 の 値 を 指定 で きる よう に する 。 
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6 (極限 値 ) 

数 値 計算 に よっ て 数 列 の 極限 値 の 厳密 な 値 を 求め ある こと は で き な い が 
概 限 値 に 近い 値 を いろ いろ 計算 し て みる こと に よっ て 概 限 値 を 推測 する 
こと は で きる 。 た と えば 


g 三 lim * テ * 
メー0 


の 値 を 知る に は , 編 10-?” に 対す る g』 デ ァ 認 の 値 を な 41, 2,。 3。… 
に 対し て 計算 し て みれ ば よい で あろ う )。 
i) ヵ 三 1 か ら 10 ま で に 対し , 上 記 gw の 値 を 計算 し て 出力 する プロ 
グラ ム を 作れ 。 


ーー に つい て 同様 な プロ グラ ム を 作れ 。 





ii) eg 三 lhm 
メー0 


損 ) e=Im ( 1 +ー リ に つい て 同様 な プロ グラ ム を 作れ 。 
カー 72 


iv ) 半径 1 の 円 に 内 接する 正 ヵ 角形 の 周 の 長き , と , 外 接 する 正 
角形 の 周 の 長き ヵ , は 次 式 で 計算 で きる 。 


。。 巡 7 
gz 三 2 7Sin 一 三 2 7 tan 一 
77 7 


ァ カーco と する と き の , これ ら の 値 の 極限 値 を 知る た め に , 上 と 同様 
な プロ グラ ム を 作れ 。 
v ) tan* を 連 分 数 に 展開 する と 次 の よう に な る 。 


tan *ー 











7 一 ーーーーーーーー 
9 一 以下 同様 
* の 値 を 入力 し , 上 記 の 式 (適当 な と ころ まで ) で tanx の 値 を 近 
似 計 算 す る プロ グラ ム を 作れ 。 


4 2 BASIC 
2.4 添字 付き 変数 


2.4.1 平均 値 と 標準 偏差 

20 入 の デー タテ 」。Yz。…。 zo を 読み 込み 、 そ の 平均 値 と 標準 偏差 を 
計算 し て 印刷 する プロ グラ ム を 作っ て みよ う 。 

〔 計 算式 〕 一般に, ヵ 箇 の デー タ *」。*。 …。 の 平均 値 / お よび 
標準 偏差 の 計算 式 は , 


の 7 訪 導 ー 


〔 プ ログ ラム の 設計 ]〕 全部 の デー タ ァ ィ 」。 xs、…。 x。 を 記憶 装置 の 中 
に 配列 ( 表 ) の 形 で 入れ て , 添字 付き 変数 の 形 で 扱う こと に する 。 手順 は 

1) デー タ の 格納 場所 (配列 ) を 用 意 する 。 

2) 2 お よび デー タ *」。 xs。 …。 を 読み 込む 。 

3) 2: を 計算 する 。 

4) それ を ヵ で 割る (その 結果 が / )。 

5) 2(*: 一 ん )? を 計算 する 。 

6) それ を z ヵ で 割り 、 そ の 平方 根 を 求め る (その 結果 が o )。 

7) 結果 を 印刷 する 。 


I トイ * 


= テ タ 
ど 7 : 


[プロ グラ ム 例 ) 

10 DIM X(100) 

20 INPUYT NR ヵ を 読む 
30 FOR 1 エ =1 TO N 

40 INPUT X(1) デー タ を 読む 


50 NEXT 1 
60 LET W=O0 

70 EOR エ =1 TO KN 

8 0 LBT W=W+X(T) 
90 NEXT 1 

100 LET M=W/RN 平均 値 


ルオ の 計算 
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BASIC の 文法 一 (5 ) 一 配列 と 添字 
配列 を 使用 する と き は , 原則 と し て 「, プロ グラ ム の 冒頭 で 
DIM 配列 名 (添字 の 上 限 ) 
の 形 で 宣言 し て お く 必 要 が ある (DIM は dimension の 意 )。 
人 配列 名 は 英字 1 字 に 限る 『 
配列 要素 は 、 
配列 名 (添字 ) 





の 形 で 引用 する こと が で きる 。 

添字 の 値 と し て , 負 の 数 や 、DIM 文 で 宣言 し た 上 限 を 越え る 値 
を 用 いて は な ら な い 。 

添字 の 形式 と し て は , 定数 、 変数 の ほか , 一 般 に 式 を 書く こと も 
許さ れ て いる 。 

( 例 ) A(3) A(T) A( エ 1 ) 


110 LET W= テ 0 


120 FEOR エ =1 TO (一 ん )3 
130 LET W=W 二 (XX( エ ) 一 M) へ 2 の 計算 
140 NEXT 1 

150 LET 8S=SQR(W/RN ) 標準 偏差 


160 PRINT "HETIKINTTI,M 

170 PRTINT "HYOUZYUNHENSA" ,8 
180 ERND 

〔 備 考 ] 


(1) 後述 の DATA 文 , READ 文 」 RESTORE 文 を 用 いれ ば 配列 を 使わ ず に 
の を 計算 する こと が で きる 。67 ペ ー ジ 参照 。 


⑳) g= 訪 如 放 一 析 と いう 式 は 庄 差 が 入る の で 使わ な い 方 が よい 。 





1 た だ し , よ 上 眼 が 10 以 下 な ら は 訪 列 写 言 を 省 員 し て も よい 。 
征 2 字 以 上 を 許す 機種 も ある 。 
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2.4.2 九 九 の 表 

掛け 算 の 九 九 の 表 を 作っ て みよ う ( 下 の 出 力 例 参照 )、 

〔 設 計 ) いろ いろ な 方 法 が 考え られ る が , ここ で は , まず , 記憶 装置 
の 中 に 九 刻 の 表 を 作り 、 できあがっ た ら , それ を 印刷 する 、 と いう や り 
か た で 作る こと に する 。 

〔 製 作 ) 2 次 元 配 列 と 2 重 の ルー プ を 用 いて 次 の よう に 書く 。 

10 DIM A(9,9) 

A が 9 行 9 列 の 配列 で ある こと を 示す 。 


20 EOR エ =1 TO 9 7 を 1 か ら 9 ま て で 変え , 
3 0 FEOR ゴ =1] TO 9 その 中 で 7 を 1 か ら 9 ま 
4 0 ET A( エ T, 了 ) ニ IT*J て 変え て , 積 が を 計算 す 
5 0 NEXT 了 J る 。 


60 NEX 呈 T 1 
これ て 配列 A の 中 に 九 九 の 表 が で きた 。 
70 EEOR エ = テ 1 TO 9 


8 0 FOR ゴ =1] TO 9 

9 0 PRTINT TAB(4* 了 ) :A(T, 了 ): 
100 NEXT 了 

110 PRTIRNT これ は 「 改 行 せ よ ] と いう 意味 に な る 。 


120 RNEXT 1 
以上 6 行 は BASIC で 2 次 元 配列 を 印刷 する と き の 定 石 。 
140 END 


〔 出 力 例 ) 
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BASIC の 文法 一 (6 ) 一 2 次元 配列 その 他 
2 次 元 配列 の 宣言 は 次 の よう に 書く 。 
DIM 配列 名 (第 1 添字 の 上 限 , 第 2 添字 の 上 限 ) 
2 次 元 配列 の 要素 は 次 の よう に 表す 。 
配列 名 (第 1 添字 , 第 2 添字 ) 
例 共 本 BASIC で は , 配列 は 2 次 元 ま で で ある 。3 次 元 以 上 を 許す 機 
種 も ある が , 一 方 , 簡略 BASIC に は 1 次元 配列 し か 使え な いも の が 
ある 。 
人 FOR 文 を 入れ 子 の 形 で 使用 する こと が で きる (多重 の 入れ 子 も 
可 )。 
人 PRINT 文 の 印字 項目 の 所 に TAB(z) と 書く と | 次 の 項目 は 左端 
か ら 数 えて 第 ヵ 字 目 か ら 印字 せよ 」 と いう 意味 に な る 。 た だ し 現在 の 
位置 より 左 に も どる こと は で き な い 。 
金 抜天 BASIC で は , 
PRINT USING リ 書式 ! : 印字 項目 の 列 

と いう 形 で 書式 を 細か く 指 定 す る こと が で きる 。 書 式 は , た と えば 
「 最 初 に 空白 を 2 字 分 入れ , 次 に 符号 次 に 整数 部 2 桁 、 そ れ か ら 小 
数 点 を 打ち , 続け て 小数 部 を 5 桁 出力 せ す よ 」 と いう の で あれ ば 
0 コロ 十 拉 半 . 韻 半 半 ## リ 
と いう ぐあい に 書く 〈。 






























(注意 ) TAB を 使わ な いと 左記 の 例 の 出力 は 次 の よう に な る 。 
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2.4.3 応 用 問 題 

1 (ベク トル の 計算 ) 

3 次元 の ベク トル g 三 (4。 の 。 の の) 、 6ー(、 の ) の 各 成 分 を 
読み 込み 、 次 の 計算 を し て 出力 する プロ グラ ム を 作れ 。 

1 ) ベク トル の 和 

g 十 の =ー( カ 十 、 2 十 あ 、 の の 十 が ) 
ベク トル の 差 


ー・ 
ご ・ 


g 一 6ー( カ ー ム の 一 の 、 の 一 ム が) 
順 ) ベク トル の 内 積 (スカ ラー 積 ) 
(g、 の ) 三 」 ムカ 十 2 0 十 43 03 
ベク トル の 外 積 (ベク トル 積 ) 


ーー 


gX ム (gs 一 の 3 05、 の 一 の 1 の 3、 の 一 の 5 の) 
ベク トル の 長 さ 

ll= ソ 22 二 22 十 7 
2 (行列 式 の 値 ) 
2 行 2 列 の 行列 式 の 成分 2i」。 12 2z」, gz2 を 読み 込み , 


で 


の ii の 12 


D= 三 の ii 22 一 2 21 








421 22 
の 値 を 計算 する プロ グラ ム を 作れ 。 ま た , 3 行 3 列 の 行列 式 
の 」 の ij2 の is 
D | の si gz の 3 
231 の 32 の 33 
に つい て も 同様 な プロ グラ ム を 作れ 。 
3 (多項式 の 値 ) 
次 数 ヵ , 係数 26。 2』,。 …, 4,。 お よび r の 値 を 読み 込み , 多項式 
の イア 十 メデ リ 二 の 2 十 … 十 の コイ 十 の 
の 値 を 計算 し て 印刷 する プロ グラ ム を 作れ 。 
(ヒン ト ) 次 の よう に 変形 し て 計算 する と よい 。 


((…((2ox 圭 )* 十 2 )* 十 …) ァ 十 21) テ 十 。 
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4 (Fibonacci の 数 列 ) 

の 0、 ム 1、 

の ュー の 十 の に 」 (2 三 1。 2。…) 

で 定義 され る 数 列 (Fibonacci の 数 列 と いう ) を zo まで 計算 し て 出力 
する プロ グラ ム を 作れ 。 

5 (2 項 係 数 表 ) 

2 項 係 数 ((z 二 の)” の 展開 式 の 係数 。 そ の 舗 は 、 ヵ 筒 の も の か ら ヶ 
筒 を と る 組合 せ の 数 に 等 し い ) ヵ C, は, よく 知ら れ て いる 公式 


1 
ーー の 
で 計算 する こと も で きる が , 階 乗 の 計算 は 桁 あ ふれ を 起こ す 危 険 が ある 
か ら , 導 化 式 

ーー ュ ビ た ュ オ テ ュ C ィ (た だ し Co ニー 1 ) 
で 計算 する 方 が よい 。 こ の 尊 化 式 に よっ て 2 項 係 数 表 ( ヵ 三 10 ま で ) を 
計算 し て 出力 する プロ グラ ム を 作れ 。 
6 (駅 間 距 離 表 ) 
新幹線 の 東京 か ら 新 大 阪 ま で の 各駅 の , 東京 か ら の 距離 (時 刻 表 に 出 
て いる ) を 読み 込み 、 すべ て の 組合 せ の 2 駅 問 の 距離 を 計算 し 、 下 記 の 
形式 で 出力 する プロ グラ ム を 作れ 。 





東 京 新横浜 小田 原 … 京都 新 大 阪 













東京 
新横浜 
小田 原 


京 都 


新 大 阪 


人 浜 字 は 普通 使え を な いか ら 番 号 1、 2 … で 代用 し て よい 。 


7 2 次 元 配列 を 使用 で き な い 機種 の 場合 1 次 元 配 列 で 代用 する 方 
法 を 工夫 せよ 。 ま た 3 次 元 配列 は どの よう に し て 代用 すれ ば よい か 。 
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2.5 判断 分岐 


2.5.1 合格 , 不 合格 
学習 事 の 入塾 試験 の 判定 の た め 。 10 人 の 受験 生 の 
受験 番号 B 国語 の 点数 K 数 学 の 点数 S 英語 の 点数 E 
を 読み 込み 3 科目 の 合計 が 200 点 以上 な ら ば O 印 (合格 )、200 点 未満 
な ら ば 叉 印 ( 不 合格 ) を 出力 する プロ グラ ム を 作っ て みよ う 。 


【 プ ログ ラム 例 ] BASIC で は , これ を 次 の よう に 書く 。 


N 回 くり か えす 








合計 G を 計算 

【 解 説 ]】 行 100 の 文 は ,「 も し 
G<200 
な ら ば 行 130 の 文 に 飛び , そ う で 
な けれ ば 次 の 文 に 進め ] と いう 
意味 で ある 。 行 120 の 文 は ,「 無 
条件 に 行 140 に 飛べ 」 と いう 意味 
で , 分 岐 し た 処理 と 重 な ら な い 
よう に , 分 岐 し た 処理 の 終っ た 
あと で 合流 させ る 目的 で 用 いて 
いる 。 





70 


え 印 を 印刷 0 印 を 印刷 
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BASIC の 文法 一 ( 7 ) 一 判断 , 分 岐 
人 IF 文 は 次 の 形式 で 書く 。 
TE 等 式 ま た は 不等式 THERN 行先 の 行 番号 
等 式 ま た は 不等式 が 成立 し た 場合 に は 右記 の 行 番号 の 文 に 進む 。 
等 式 ま た は 不等式 が 成立 し な い 場 合 は 次 の 文 に 進む 。 
等 式 、 不等式 は 次 の 形式 で 書く 。 
左辺 等 号 ま た は 不 等 号 右辺 
左辺 右辺 に は , 定数 , 変数 、 式 な ど が 書け る 。 
等 号 , 不 等 号 は 次 の よう に 書く 。 
数 学 記号 く = 9 
BASIC ぐ に 一 > ニ > 三 く > 
GOTO 文 は 次 の 形式 で 書く 。 
GOTO 行先 の 行 番号 
これ は 「 無 条件 に 右記 の 行 番号 の 文 に 進め ] と いう 意味 で ある 。 

























演習 1 左記 の プロ グラ ム を 
G=250 な ら ば A 組 (A 印 ) 
250>G=200 な ら ば B 組 (B 印 ) 
200>GC な ら ば 不 合格 (X 印 ) 
と する よう に 改造 せよ 。 
(ヒン ト ) まず A 組 に 入る か どう か を 調べ , 次 に 不 合格 か 
どう か を 調べ れ ば よい 。 了 
2 の 値 を 読み 、 右 図 の よう な 関数 
_ |2.5*x (* く 2 の と き ) 
ッ ー1。 (* こ 2 の と き ) 
の 値 を 出力 する プロ グラ ム を 作れ 。 O ひ * 
3 整数 N を 読み 、 それ が 偶数 か 奇数 か を 調べ て , 偶数 な ら ば G, 
奇数 な ら ば 氏 と いう 文字 を 出力 する プロ グラ ム を 作れ 。 
(ヒン ト ) 「N/2」 と 「N/2 の 整数 部 ] が 等 し いか ど 
うか を 調べ れ ば よい (整数 部 の 求め か た っ 39 ペ ー ジ )。 
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2.5.2 2 次 方 程 式 の 根 
2 次 方 程 式 2 之 十 0x 十 c 三 0 の 係数 Z, の , c を 読み 込み 根 を 
計算 し て 印刷 する プロ グラ ム を 作っ て みよ う 。 
〔 計 算式 〕) 2 次 方 程 式 の 根 の 公式 


思 ー ム 土 7 の 2ー4gc 
2 





と 


を 用 いる が , コン ピュ ー タ ー で は , 実数 の 場合 と 複素 数 の 場合 に 分 け て 
扱う 必要 が ある の で , まず 判別 式 

D= テ ゲー42c 
の 値 を 計算 し 、 つい で に , あと の 便宜 を 考え て 


有 辺 第 1 項 8 ニラ 右辺 第 2 項 エ = ツ PL 
「/4 2 


を 計算 し て お いて , 次 の よう に 処理 する 。 
(流れ図 ] 








係数 7. の 、c を 読み 
D., S, 丁 の 値 を 計算 。 






ニーS 士 本 
*2 三 SーT 
の 値 を 印刷 


* ィ ューS 二 7 
ィ 2 三 SーT7 
を 印刷 





ィ ニ S 










の 値 を 印刷 
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【 プ ログ ラム 例 〕 


10 
る 0 
3 る 0 
4 0 
5 0 
6 0 
7 0 
80 
900 
100 
110 
120 
130 
140 
150 
160 
170 


演習 


INPUT A,B,C 

TL 中 D ロ ニーB*Bー4*A※O 

ET 8 ニーB/(2*A ) 

ET エーSQR(ABS(D) )/(2*A) 

TE D<0 THEN 140 

TE D=0 THEN 110 

REM D>0 NO BAATI 
PRINT "X1= リ :8+ 串 
PRINT "XX2=!":8 一 呈 
GOTO 170 

REM D=0 NO BAATI 
PRINT "XX= リ ":8 
GOTO 170 

REM D< く 0 NO BAAT 
PRTTNT "XX メ ュ ユーリ:8:i "キサ: 中 iTW 
PRTINT 0 文 の 三 リ < ミリー 中: WT 

EEND 






1 上 記 の プロ グラ ム は 0 の 場合 を 扱う こと が で き な い 。 改 
造 し て z 三 0 で も 解け る よう に せよ 。 

2 2 実 根 の 計算 の 場合 , 絶対 値 の 小さ い 方 の 根 は S 土工 の 計算 
の 際 に 桁 落 ち が 起 こっ て 精度 が 悪く な る こと が ある の で , 次 
の 式 ( 根 と 係数 の 関係 ) で 計算 する 方 が よい 。 

* ょ し </2 7/*、 
た だ し ァ は 「 和 絶対 征 の 大 きい 方 の 根 」 で ある 。 上記 の プロ 
グラ ム を , この よう に 改造 せよ 。 
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2.5.3 応 用 問 題 

1 (うるう年 ) 

西暦 年 を 入力 し て , その 年 が うる う 年 で ある か を 判定 し .、 その 結果 を 
出力 する プロ グラ ム を 作れ 。 

(ヒン ト ) 4 で 割り 切れ な けれ ば 平年 。 4 で 割り 切れ て , 100 で 割り 
切れ な けれ ば うる う 年 。100 で 割り 切れ て , 400 で 割り 切れ な けれ ば 平年 。 
400 で 割り 切れ れ ば うる う 年 。 な お , N を M で 割り 切れ る か どう か を 調 
べ る に は IN グ M」 と 「N プ M の 整数 部 ] が 等 し いか 否 か を 調べ れ ば よ 
い 。 整数 部 を と り 出 す に は 組み 込み 関数 I NT (39 ペー ジ 参 照 ) を 用 い 
る 。 

2 (早生 まれ , 遅 生ま れ ) 

生年 月 日 (年 Y、 月 M, 日 D に 分 け て 入力 する ) が 4 月 1 日 以前 な ら 
ば HAYAUMARE、, 4 月 2 日 以後 な ら ば OSOUMARE と 出力 
する プロ グラ ム を 作れ 。 

3 (大口 割り 引き ) 

ある 店 の カセ ッ ト テ ー プ の 値段 は 次 の よう に な っ て いる 。 

バラ ( 1 本 単位 ) だ と , 330 円 ( 1 本 に つき ) 
1 箱 (10 本 入り ) は , 3000 円 ( 1 箱 に つき ) 

7 本 の 値 彼 を 計算 する プロ グラ ム を 作れ 。 

4 (妥当 性 の チェ ッ ク ) 

月 、 日 を 入力 し た と き , その 値 が 「 あ り 得 な い 日 付け 」 (た と えば 2 
月 30 日 と か , 13 月 7 日 と か , 0 月 一 1 日 な ど ) で な いか どう か を 調べ る 
プロ グラ ム を 作れ 。 

5 (照合 ) 

今年 来 た お 年 玉 つ き 年 賀 は が き の 番号 が 配列 A (添字 1 か ら N ま で ) 
に 格納 され て いる 。 今 年 の 当たり 番号 を 入力 し て , 当たり の は が き が あ 
る か 無い か を 調べ る プロ グラ ム を 作れ 。 
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6 (収束 判定 ) 

yr の 値 を 求め る に は , 組み 込み 関数 を 使っ て SQR(X) と 書い て も 
よい が , 自分 で プロ グラ ム を 作る の で あれ ば 次 の よう に する と よい 。 
ンジ ン 0 で あれ ば 


よい 。 だ た と えば 
4 三 ャ と する 。 











e は 許 人 窒 誤 差 。 
た と えば 10~5 と 
する 。 小さ すぎ 
る と 反復 が 止ま 
ら な く な る 。 





終了 (結果 は ん +1) 


この よう な プロ グラ ム を 作れ 。 
7 (ループ) 
IF 文 を 用 いれ ば , FOR 文 を 使わ な く て も , くり か え し の プロ グラ ム 
を 書く こと が で きる 。 ま ず , 最も 簡単 な 場合 と し て , 

FOR 1=1 TO N 

反復 手続 き 

NEXT 1 
を IF で 書い て みよ う 。 次 に , 一 般 的 な 場合 

FOR X=A TO B STEP OC 
を IF 文 で 書く 方 法 を 工夫 せよ (特に , 増分 C が 負 の 場合 に つい て 、 注 
意 深く 考察 せよ )、 ま た , その や りか た を 用 いて , * デ 0 か ら ァ テー1 ま で , 
0.1 お き の , @* の 数 表 を 作る プロ グラ ム を 書き 、 コン ピュ ー タ ー で 実行 
きせ て , 結果 を 検討 せよ 。 
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2.6 その 他 の 機能 


以上 で 基本 的 な 機能 は 一 通り 説明 し た が , その ほか に 「 知 っ て お け ば 
便利 な 機能 ] が いく つか ある の で , 本 節 で は それ ら を まとめ て 説明 し て 
お く 。 は じ め て 学習 する と き は , ざっ と 目 を 通し て 先 に 進み ,。 あと て 必 
要 に な っ た と き に 詳し 〈 く 読め ば よい 。 な お , 簡略 BASIC の 中 に は 本 節 
で 紹介 する 機能 を 省 い て ある も の が ある の て 注意 され た い 。 


2.6.1 番号 に よる 分 岐 

IF 文 に 似 た 文 で , ON 文 と いう の が ある 。 こ れ は 
ON z ヵ GOTO 4 廊 , あ , …」 ん 

の 形 で 書き , 
z 三 1 な ら ば 行 番号 の 文 に 進め 

2 三 2 な ら ば 行 番号 ム の 文 に 進め 


2 三 2 な ら ば 行 番号 ん の 文 に 進め 
と いう 意味 に な る 。 
【 使 用 例 ] 三角 形 の 面積 を 計算 する 公式 は いろ いろ ある 。 そ こ で , ま 
すず 公式 番号 ヵ を 読み , 
z 三 1 な ら ば , 2 辺 の 長 さ 2Z, の と その な す 角 の 9 より 
S テ の sin の / 2 
2 三 2 なら ば , 底辺 の 長 さ 2 と 高き ん より 
S =4// 2 
2 三 3 さ な ら ば , 3 辺 の 長 さ 2, の 2, c よ り , Heron の 公式 
S =ys(sー2)(5ー の (sーc) 5=(2 十 5 填 o)/ 2 
で 面積 S を 計算 する プロ グラ ム を 作っ て みよ う 。 9 を 変数 名 s を 変 
数 名 Z で 表し , 入力 する 角度 の 単位 を 度 と する と , プロ グラ ム は 次 の よ 
うに な る 。 
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BASIC の 文法 一 (8) 一 ON 文 





全 ON 文 は 
ON zz GOTO 太 。 あ ) …」 太 
の 形 で 書く 。 意 味 は 左記 の 解説 の と お り 。 
人 の 所 に 式 を 書い て も よい 。 
( 例 ) ON エ T+ 了 GOTO 100,200,300 


全 の 値 は 「1 以 上, 娘 以 下 の 整 数 ] に する の が 自然 で あり , 安 全 , 
確実 で ある 。 上 記 以 外 の 場合 に つい て の 細か い 規 定 も ある が , 機種 に 
よっ て 扱い か た が 違う こと が ある の で , な る べく 上 記 の 形 で 用 いる 方 
が よい 。 


10 PRINT N= リ , 

20 INPUT R 

30 IE N>3 GOTO 10 

40 ON N GOTO 50,90,130 

50 PRINT "A,B,THETA=": 

60 INPUT A,B,T 

7 の 0 LE 8= ニ A*B*SIN(T/57.2958 ) ノ 2 
80 GOTO 170 

90 PRINT !A,H= リ ": 

100 INPUT 4A,H 

110 LET 8 ニーA※* 是 / る 

120 GOTO 1970 

130 PRINT !A,B,O= リ : 

140 INPUT A,B,C 

150 LET = ニ (A 十 B 十 O)/ ノ 2 

160 LET 8= ニ SQR( 避 *(ーA)*( 避 ーーB)*(ーO) ) 
170 PRINT "8= リ :8 

180 END 


62 
2.6.2 サブ ルー チン 
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プロ グラ ム の 中 の いく つも の 箇所 で 同上 形 の 処理 を し た いこ と が あ 
る 。 そ の 場合 、 同 上 形 の プロ グラ ム を 何 箇 所 に も 書く の は むだ で ある か 


ら , 共通 の 部 分 を サブ ルー 
チン (subroutine、 いわ ば 
下請 け プ ログ ラム ) と いう 
形式 で 作っ て お いて , 必要 
な 箇所 か ら 呼 び 出 し て 使う 





GOSUB 
次 の 文 に 帰る 





サ プ ル ー チ ン 









と 便利 で ある 。 

サブ プルー チン を 呼び 出す 

に は , 次 の 形 で 書く 。 

GOSUB 行 番号 
右記 の 行 番号 は , サブ ルー 
チン の 入口 (最初 の 文 ) の 
行 番号 で ある 。 他 の プロ グラ ム 言 語 (FORTRAN な ど ) で は , サブ ルー 
チ ナン に デー タ を 引き 渡す た め に 引数 と いう も の を 書く こと が で きる が , 
基本 BASIC に は 引数 が な い 。 その か わり , 変数 名 が 全部 共通 に な っ て 
いる 。 

サ プ ル ー チ ン の 入口 の 書き か た に 関し て は , べつ に 規則 は な い (「 こ こ 
が サ プ ル ー チ ン の 始ま り で ある 」 と いう よう な 文 は 不要 )。 サブ プル ー チ ン 
の 出口 に は RETURN と 書く 。 これ は 「 も と の プロ グラ ム に 帰れ 」 と い 
う 意味 で 、 も と の ブロ グラ ム の 呼び 出し た 所 (GOSUB) の 次 の 文 に 飛 
ん で , そこ か ら 続 き を 実行 する 。 

【 使 用 例 ] ヵ と ァ ヶ の 値 を 読み , 2 項 係数 (組合 せ の 数 ) 


Cm[ う = ! 


Z!( み 一 /)! 





GOSUB ---- ト 上 < 
次 の 文 に 帰る 





の 値 を 計算 し て 出力 する プロ グラ ム を 作っ て みよ う 。 階 乗 の 計算 が 3 箇 
所 に ある の で , 階 乗 を 文 200 か ら 始ま る サブ ルー チン で 計算 する こと に 
す ゐ 。 
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BASIC の 文法 一 (9) 一 GOSUB 文 その 他 
GOSUB 文 は 次 の 形式 で 書く 。 

GOSUB サブ ルー チン の 最初 の 行 の 行 番号 
@ サブ ルー チン の 出口 に は RETURN 文 
RETURN 
を 書く 。 こ れ を 実行 する と , 呼び 出し た GOSUB 文 の 次 の 文 に も ど 
の ia 
人 サブ ルー チン の 中 で , さら に また サブ ルー チン を 呼び 出す 、 とい 
う よ う に , GOSUB-RETURN を 多重 に 使用 で きる 。 
@ ぐ STOP 文 は STOP と 書く 。 「( 一 時 ) 停 止 せ よ 」 の 意味 。 




















10 INPUT N,ER 7 と と を 読む 
20 LET KK=N ! を 計算 し 結果 を 
2727! を 可 昇 し 。 和 杯 
30 GO8UB 200 
F1 に 入れ る 。 
40 芽 包 ET F1 ユ =F 


ヶ ! を 計算 し , 結果 を 
F 2 に 入れ る 。 


60 GOSUB 200 
70 LT EE2=P 
80 LET K=N 一 民 TI 


50 LET K=R | 


90 GO8UB 200 は F に 入る 。 
100 LET C= ニ FE1/(EF2*E) 
110 PRINT "COC= リ "iC 
120 8TOP 
200 LET F=1 ここ か ら サ プ ブルー チン 。 
210 FEOR 1 エ =1 TO K ん ! の 値 を 計算 し て 結果 
220 LT F ニ FE*※ エ を F に 入れ る 。 
230 NEXT 1 
240 RETURN サ プ ル ー チ ン の 出口 。 


250 END 全体 の 終り 。 
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2.6.3 利用 者 が 定義 する 関数 
組み 込み 関数 (2.2.2 節 参照 ) 以外 の 関数 は , 自分 で 作ら な けれ ば な ら 
な い 。 そ れ を 一 つの プロ グラ ム の 中 の 何 箇 所 も で 使う の で あれ ば , サブ 
ルー チン の 形 で 扱う の が よい で あろ う 。 し か し , 特に 、 関数 の 計算 式 が 
ユ 行 で 書け る 場合 に は , 「 利 用 者 が 定義 する 関数 ] と いう 形 で 扱う と , 
引数 を 設け する こと が で きる 
算術 式 の 中 に 書け る 
と いう 利点 が ある 。 
関数 を 定義 する に は DEF 文 を 用 いる ( 右 の ペー ジ の 文法 規則 参照 )。 
DEF は define の 意味 で ある 。 
【 使 用 例 〕] 台 形 公式 に よっ て 


S=/ 7 





の 値 を 近似 計算 する プロ グラ ム を 
作っ て みよ う )。 台形 公式 と いう の 
は , 右 図 の よう に 定 積分 の 値 を 台形 の 面積 の 和 で 近似 する 公式 で , 区 間 
64, の を z 等 分 する 場合 の 計算 式 は 次 の よう に な る 。 


s+ 9) )。 


た だ し , テテ 4 十 77。 ん カテ ( 5 一 る )/z 

パ ァ ) の 計算 が 3 箇所 で 必要 に な る の で , DEF 文 を 用 いる と よい 。 以 下 
に 示す プロ グラ ム 例 は , 7(*)= 1/(1 十 *2) の 場合 で ある が , DEF 文 
を 取り か えれ ば 他 の 関数 の 計算 が で きる 。 

10 REM EXAMPLE-ー2.6.3 

る 0 DEE ENO( 又 ) ニ 1/ ノ (1] 十 XX*XX) 

30 TINPUT A,.B,RN 

0 LET =(B 一 A )/N 

50 LE 呈 T W=O0 

60 EOR エ = テ 1] TO KN-1 


の 。 和え 1 2 0 の ma-1 が 


2.6 その 他 の 機能 65 
BASIC の 文法 一 (10) 一 DEF 文 
ぐ 関数 を 定義 せる に は DEF 文 を 用い る 。 こ れ は 次 の 形式 で 書く 。 
DEF 関数 名 ( 仮 引数 ) = その 関数 の 計算 式 
人 関数 名 は 3 文字 で , 
先頭 2 文字 は FN に 限る 
第 3 字 は 英字 に 限る 
(正しい 例 ) ENA TPNO 
(誤り の 例 ) TAN E FUNOTRN 
ぐ 仮 引数 が 不要 な ら ば 無く て も よい 。 そ の 場合 の 形 は 
DEE 関数 名 = その 関数 の 定義 式 
































と な る 。 
仮 引数 を 書く な ら 1 箇 に 限る ( 二 つ 以 上 は 書け な い )。 
ぐ 仮 引数 と し て は 変数 名 を 書く 。 本 文 の 変数 名 と 重複 可 。 
関数 は , 関数 名 ( 実 引数 ) の 形 で 代入 文 な どの 式 の 中 に 書く こと 
が で きる 。 実 引数 と し て は , 定数 、 変数 の ほか, 式 を 書い て も よい 。 
引数 な し の 関数 は 関数 名 だ け で 引用 され る 。 


7 0 LBT メーA 十 1*H 

80 LBT W= ニ WTENO(X) 

90 NEXT 1 

100 LET W=ENOC(A) ノ 2 十 W+TENO(B) / ノ る 
110 LET 8=W*H 


120 PRTNPT "8=W:8g 
130 END 
演習 ” 1 次 の 関数 を DEF 文 の 形 で 書け 。 
= クー ー ズ 
前 ae: デー  @⑳ cosh = と ーー 





(3) tanh *= sinh */ cosh * 


(4) arcsin x デ arctan 
1 一 


(5) arccos * ァ / 2 一 arcsin * 
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2.6.4 同じ デー タ を 何 度 も 使う 方 法 
これ まで の プロ グラ ム 例 で は , デー タ の 入力 方 法 と し て , 
入力 の 指示 を INPUT 文 で 書く 
実際 の デー タ は 実行 時 点 に 入れ る 
と いう 方 法 を と っ て きた が , も う 一 つの 方 法 と し て 
デー タ を プロ グラ ム と 一 緒 に 入れ て お く 
その 入力 指示 を READ 文 で 書く 
と いう こと が で きる 。 す な わ ち , 入力 すべ き デ ー タ を 
DATA 1 番目 の デー タ , 2 番目 の デー タ , … 
(これ て 書き ほれ な けれ ば , 同じ 形式 で 何 枚 で も 並べ る ) 
の 形 で プロ グラ ム の 中 (普通 は プロ グラ ム の 最後 の 所 ) に 書き 、 それ を 
READ 文 で 読む 。READ 文 の 書き か た は INPUT 文 と 同じ 形 
READ 変数 名 , 変数 名 , … 
で ある 。TINPUT 文 と READ 文 の 違い は 
INPUT 文 は , 実行 時 に 端末 機 か ら デ ー タ を 読む 
READ 文 は 、 DATA 文 で 書い た デー タ を 読む 
と いう 点 に ある 。DATA 文 と READ 文 の 組合 せ に よる 方 法 に は 次 の よ 
うな 利点 が ある 。 
1) 統計 の 計算 な どの 場合 同じ デー タ を いろ いろ な 手法 で 解析 し た い 
こと が ある 。 そう いう とき, 同じ デー タ を 何 度 も 入力 し な いて 済む 。 
2) デバ ッ グ の と き , テス ト ・ デ ー タ を 何 度 も 入れ る の は めん どう で 
ある が , この 方 式 な ら 一 度 入 れる だ け で よい 。 
3) この 方 式 だ と , RESTORE 文 を 用 いて 「 い ま の デー タ の 最初 の 位 
置 に も どれ 」] と いう 指示 が で きる 。 こ うし て , 一 つの プロ グラ ム の 
中 で , 同じ デー タ を 何 回 も 読む こと が で きる 。 
要する に , INPUT 文 で 入力 し た デー タ は , すぐ 消え て し まっ て あ と に 
残ら な い の に 対し , DATA 文 で 書い た デー タ は プロ グラ ム の 一 部 と し 
て 記憶 装置 に 残っ て いる の で , 同じ デー タ を 何 度 も 利用 する こと が で き 
る わけ で ある 。 
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BASIC の 文法 一 (11) 一 DATA 文 と READ 文 
DATA 文 は 次 の 形式 で 書く 。 

DATA デー タ の 列 
た だ し ,「 デ ー タ の 列 ] は , デー タ (すなわち 定数 ) を コン マ で 区 切っ 
て 並べ た も の で ある 。 
人 READ 文 は 次 の 形式 で 書く 。 

READ 変数 名 の 列 
た だ し , 「 変 数 名 の 列 ] は , 変数 名 (添字 付き で も よい ) を コン マ で 区 
切っ て 並べ た も の で ある 。 
RESTORE 文 は 次 の 形式 で 書く 。 
RESTOR 選 
文 の 意味 は 左記 の 解説 の と お り 。 
DATA 文 は プロ グラ ム 中 の どこ に 書い て も よい 。 















【 使 用例 〕] 2.4.1 節 と 同じ 計算 を 次 の よう に 処理 する こと が で きる 。 

10 REBAD NRN 
20 LET W=O0O 
30 FEOR 1 エ =1 TO RN 
40 READ XX 読み な が ら 合計 を 
5 0 LET W= ニ WT+TX 計算 し て ゆく 。 
60 NEXPT 1 
70 LET M=W/N 
80 RESTORE 最初 の デー タ に も どる 。 
90 LET W=0 

100 FEOR 1 エ =1 TO 

110 READ 

120 ET W=W 十 (XーM) へ る 

130 NEXT 1 

140 PRINT M,SQR(W/RN ) 

150 END 

160 DATA 1583 以下 同様 に デー 
: タ を 列記 する 。 


読み な が ら ,「 平 均 
値 と の 差 の 2 乗 ] 
の 和 を 作っ て ゆく 。 
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2.6.5 文字 列 変数 

コン ピュ ー タ ー の 中 で 文字 デー タ を 扱い た い 場合 が よく ある (た と え 
ば 下記 の 使用 例 参照 )。 文 字 デ ー タ の 扱い か た は 数 値 デ ー タ と 全く 異な 
る の で , 数 値 デ ー タ を 扱う た め の 変 数 (これ まで に 述べ た 普通 の 変数 ) 
と は 別に , 文字 列 変数 と いう も の が ある 。 そ の 文法 の 要点 を 右 に 記す 。 
基本 BASIC に お ける 文字 処理 機能 は あま り 強 力 で な い の で , 本 格 的 な 
文字 処理 (た と えば 文章 の 編集 、 情 報 検索 な ど ) に は 向 か な い が , 日 党 
の 技術 計算 に 必要 な 機能 と し て は 十分 で ,。 か な り 便利 に 使え る か ら , い 
ろ い ろ な 使い か た を 工夫 し て 活用 する と よい 。 

〔【 使 用例 ] いく つか の 商品 の , 品名 単価 、 数 量 (売上 げ 数 量 ) を 入 
力 し , 各 品 目 に つい て (単価 ) メ (数 量 ) ニ (金額 ) の 計算 を し て 
品名 。 単価 数量 金額 

の 形式 で 作 表し , 最後 に 合計 金額 を 出力 する プロ グラ ム を 作っ て みよ })。 
品名 は 文字 列 変数 H\ で 表し , 単価 、 数量, 金額 は 、S, K で 表す こ 
と に する 。 品名 欄 が * 印 な ら ば 「 デ ー タ 終り 」 と 解釈 し , 合計 を 出力 す 
る こと に する 。 作 表 の 関係 上 , RI 
入力 する と 入力 と 出力 が 一 緒 に な っ て うま く な 


10 LET G=0 

20 READ H ぎ \,T,S 

30 TITE HH ま = リ ※! 中 HEN 80 文字 列 の 比較 
440 LT K= ニ T*8 

50 PRINT H\,T,8,TAB(50) :K 


60 LET G=G+ 反 | 金額 の 印字 位置 を 合計 
70 GOTO 20 欄 と 合わ せる た め 。 
80 EOR エ =1 TO 11 

90 思 羽 品 光 ーー ニー 横 け い を 引く 


100 REX 呈 T 1 
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BASIC の 文法 一 (12 ) 一 文字 列 変 数 
文字 列 変数 の 変数 名 は 2 字 で , 1 字 目 は 英字 , 2 字 目 は \ (機種 
に よっ て は $) と する 。 ( 例 ) SB 壮 A 半 Y 笠 

一 つの 変数 で 扱う こと の で きる 文字 列 の 長 さ は 機種 に よっ て 異な 
る が , 普通 の 単語 や 名 前 を 扱う に は 十分 な 長き で ある と 考え て よい 
(標準 規格 で は 最大 18 字 と し て いる )。 

文字 列 変数 は 入出 力 の ほか , 代入 お よび 比較 が で きる 。 そ の 場 
合 , 文字 列 定数 (すなわち 文字 列 を 2 重 引用 符 で 囲ん だ も の ) を 一 緒 
に 使う こと が で きる 。 

文字 列 を 切っ た り 、 つ な い だ り , 中 の 1 字 を 取り 出し た り 挿入 し 
た りす る 機能 や , 文字 列 変数 の 配列 は , 標準 規格 の 基本 BASIC に は 
含ま れ て いな い 。 

















110 PRTINT "GOUKE1I ,TAB(50) :G 

120 STOP 

130 DATA "RINGO",200,83 

140 DATA "MIKAN"',70,10 デー タ の 例 
150 DATA "* リ ".0,0 

160 END 


【 由 カ 例 ) 
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2.6.6 応 用 問 題 
1 (HAPPY BIRTHDAY) 
名 前 を 入力 し 、 それ を HAPPY BIRTHDAY の 歌 に 組み 込ん で , 
PP BB 了 葉 男 下 DAY 中 O YO。 
HAPPY BIRTHDAY TO YOU. 
HAPPY BTIRTHDAY DEAR 名 前 SAN. 
HAPPY BTIRTHDAY TO YOU. 
と 出力 する プロ グラ ム を 作れ 。 
2 (まん が ) 
コン ピュ ー タ ー て で 絵 を 描く 最も 簡単 な 方 法 は 、 ま ず 方 眼 紙 に 原画 を 描 
き , 文字 列 に な お し , 文字 列 を 1 行 分 ずつ 読み 込ん で その まま 出力 する 
プロ グラ ム に 入れ て や れ ば よい 。 

















HLHHFRI ] 
LTUMTHNLF 


(注意 ) 出力 は 概して 縦長 に な る 
か ら , 上 の 図 の よう に , 方 眼 紙 に 縦 
長 の 格子 を 書い て 用 いる と よい 。 〔 出 力 例 〕 

デー タ は INPUT 文 で 入れ る と 出 = ニニ ニ 
力 と 一 緒 に な っ て 絵 に な ら な いか ら , 
DATA 文 で 書い て READ 文 で 入力 
する と よい 。 
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3 ( 2 直線 の な す 角 ) 
ベク トル g, の の な す 角 の は 


、) 
lgl| 
に よっ て 求め られ る 。 内積 (g, 5 め ) お よび 絶対 値 gl | の プロ グラ ム 
は 既に 2.4.3 節 で 作成 し arccos の プロ グラ ム は 2.6.3 節 の 演習 1 の (5) 


で 作成 し て ある 。 こ れ ら を 組み 合わ せ て , 角度 の を 計算 する プロ グラ ム 
を 作れ 。 デ ー タ は 次 の 形式 で 入力 する も の と する 。 


(g 
りーarccoS 


7 次 元 

の か 両 ベ クト ル の 第 1 成分 

2 の 両 ベ クト ル の 第 成分 
4 (の 計算 ) 


2.6.3 節 の プロ グラ ム 例 は , 


1 


の 値 を 計算 する も の で ある 。 こ こ で 特に 0, の =1 と すれ ば 





PIE 
の 値 (近似 値 ) が 得 ら れる か ら , 結果 S を 4 倍 す れ ば 円 周 率 z (の 近似 
値 ) に な る は ず で ある 。 分 割 数 ヶ 々 を いろ いろ 変え て , どの 程度 の 分 割 で 
どの 程度 の 精度 が 得 ら れる か を 調べ て みよ う )。 
5 (入力 文字 に よる 分 岐 ) 
2.6.1 節 の プロ グラ ム を 改造 し て , 公式 の 選択 を 番号 で な 〈 公 式 名 で 
行 な を る よう に せよ 。 た と えば , 入力 が 





FORMULA- 1 な ら ば S=2 の sin の / 2 
FORMULAー 2 な ら ば S テ 7/ 2 
HERON な ら ば Heron の 公式 


で 計算 する よう に せよ 。 
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2.7 操作 法 


BASIC の プロ グラ ム を 実行 する に は 
BASIC シス テム の 起動 プログ ラム の 入力 実行 
の 三 つ の 段 階 が 必要 で ある 。 
BASIC シス テム の 起動 まず 最初 に 
電源 投入 その 他 , 開始 時 に 必要 な 操作 を する 。 
利用 登録 を する (マイ コン の 場合 は 不要 )。 
BASIC シス テム を 呼び 出す 。 
な ど を し な けれ ば な ら な い 。 そ の 方 法 は , 機種 に より , また 利用 形態 に 
より 異な る か ら , 先生 の 説明 を メモ し て お こう 。 


開始 時 の きま り 文 句 


こう し て , BASIC シス テム が 動き 始め れ ば , あと は BASIC の コマ ンド 
に よっ て 操作 する こと が で きる 。 

プロ グラ ム の 入力 最初 に NEW と いう コマ ンド を 送り , 続け て プロ 
グラ ム を 入力 する 。 た と えば 


NEW コマ ンド に は 行 番号 を 付け な い 。 
10 TINPUT A,B,H 

20 LET 8=(A 十 B ) * 是 / ノ 2 

30 PRTNT 8 

40 ERND 
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プロ グラ ム の 実行 RUN と いう コマ ンド を 送る と 実行 が 開始 され 
る 。 い ま の 例 の プロ グラ ム だ と , 最初 の 文 は 10 INPUT A,B, 
H で ある か ら , まず デー タ A, B, HH の 入力 要求 (「 デ ー タ を 入れ て 下さ 
い 」 と いう 合図 。 普 通 は ? 印 ) が 来る 。 そ こ で A, B, H の 値 を (その 
順 詳 で ) 入れ る 。 デ ー タ の 区 切り に は コン マ を 入れ る 。 


RUN 
7? 3.0.8.0.4.5 


上 記 の よう に 入力 すれ ば , A の 値 は 3 , B の 値 は 8, H の 値 は 4.5 に な 
る 。 次 の LET 文 を 実行 する と S の 値 は 24.75 に な る 。 そ の 次 は PRTr 
NT 8S で ある か ら , S の 値 が 出力 され る 。 

24.75 

プロ グラ ム の 修正 正しい 文 (の 本 体 ) に , 修正 し た い 位置 に 対応 
する 行 番号 を 付け て 入力 する 。 

( 例 ) いま の プロ グラ ム を 36 ペ ー ジ の 別 解 1 の よう に 修正 する に は 

10 A=S.0 

11 B=8.0 

1 る 世 =4。5 
と 入力 すれ ば よい 。 上 記 10 の よう に , 既に 用 いら れ て いる 行 番号 と 同じ 
替わる 。 ま た 上 記 11 の よ うに, 既に 用 いら れ て る 行 番号 の 中 間 の 行 番号 
な い 場合 は 行 番 号 だ け を 入力 すれ ば よい 。 

( 例 ) 36 ペ ー ジ の 別 解 2 の よう に 修正 する に は 

20 

30 PRTINT (A 十 B)* 是 /2 


と 入力 すれ ば よい 。 
[プロ グラ ム の 清書 ] LIST と いう コマ ンド を 送る と , その 時 点 に お 
ける プロ グラ ム ・ リ スト が 出力 され る 。 
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再 実行 修正 し た プロ グラ ム を 実行 する に は RUN コマ ンド を 送れ 
ば よい 。 修正 し な いで , 同じ プロ グラ ム を 何 回 も (いろ いろ な デー タ に 
対し て ) 実行 する 場合 も RUN コマ ンド に よる 。 

保存 手続 き こう し て 作ら れ た プロ グラ ム は , 普通 , 一 時 ファ イル 
(一 時 的 に 使用 する た め の 記 憶 場 所 ) に 置か れ て いる の で , 次 の 人 と 交 
代 す る と (ある い は 自分 が 別 の プロ グラ ム を 作成 する た め に NEW コマ 
ンド を 入力 する と ) 消さ きれ て し まう 。 も し 次 回 まで と っ て お きた けれ ば , 
保存 ファ イル (情報 を 長期 間 保 在 し て お く た め の 記憶 場所 ) に 移す か , 

カセ ッ ト ・ テ ー プ また は フロ ッ ピ ー・ デ ィ ス ク に 書き 込ん で お く 必 要 が 
ある 。 操 作法 は 機種 に よっ て 異な る か ら , 先生 に 伺っ て (つい で に 復元 
の 方 法 , 削除 の 方 法 な ども ) メモ し て お こう 。 

待避 と 復元 の 方 法 


終了 手続 き 終了 時 に は , 「BASIC の 処理 を これ で 終了 する 」 と い 
う 手 続き と 「 私 の 仕事 は これ で 終り ます 」 と いう 手続 き を する の が 普通 
で ある 。 


操作 に 関す る メモ , 注意 事項 
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3.1 数 値 の 扱い 


整数 の 計算 
関数 INT 整数 の 計算 の コツ は INT と いう 関数 を 活用 する こと 
で ある 。 こ れ は (39 ペ ー ジ の 表 に ある よう に ) 

INT(* )=「+ を 超え な い 最 大 の 整数 ] 
と いう 関数 で ある 。 
( 例 ) INT(3.18)=3 INT( 一 3.18 ) = ニー4 
@ 余り 正 の 整数 M を 正 の 整数 N で 割っ た 余り R を 求め る に は , 次 
の よう に すれ ば よい 。 

ET R=MーINT(M/N ) *N 
( 例 ) M=20,. N= ニ 6 なら ば , M/N= 3.333 … 

INT (M/N )= 3 R=20 一 3X6=2 

人 約 数 正 の 整数 M が 正 の 整数 N で 割り 切れ る か どう か を 調べ る に 
は IE INT(M/RN ) *N=M THREN 
と すれ ば よい 。THEN の 行先 が 「 割 り 切 れ た 場合 ], 分 岐 せ ず に IF 
文 の 次 に 進む の が 「 割 り 切 れ な か っ た 場合 ] で ある 。 
整数 計算 の 誤差 整数 の 計算 で は , 普通 は 誤差 は 入ら な い が , 
BASIC で は 和 整数 値 も 浮動 小数 点 表 現 で 扱っ て いる か ら , オー バー フ 
ロー (overflow、 あ ふれ ) は 起こ さ な い か わり , 仮数 部 桁 数 を 超え れ 
ば 誤差 が 入る の て で 注意 を 要する 。 な お , 標準 規格 で は 「 有 効 桁 数 6 桁 
以上 |」 と な っ て いる 。 普 通 の 計算 は 6 桁 で も よい が , 金銭 の 計算 な ど 
の 際 に は 十分 に 注意 され た い 。 
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最大 公約 数 と 最小 公 倍数 
金正 の 整数 M, N の 最大 公約 数 CG を 求め る に は 「 両 者 を M (また は 
N ) 以下 の すべ て の 整数 で 割っ て みる 」 と いう 方 法 が 最も 簡単 で ある 
が , も っ と 能率 の よい や りか た と し て Euclid の 互 除法 と いう の が あ 
る 。 そ の 手順 は 次 の と お り 。 
1) M と N を 比較 し , M ぐ N な ら ば 交換 し て M=N に する 。 
2) M を N て で 割っ た 余り R を 求め る 。 
3) 余り が 0 か どう か を 調べ て , 
0 な ら ば 計算 終了 (最大 公約 数 は N で ある ) 
0 で な けれ ば , 新 M=N, 新 N=R と し て 2 ) に も どる 。 
( 例 ) M=20,、 N=12 の 場合 , 
20 エ 12 の 余り は 8 新 M=12, 新 N=8 
12-8 の 余り は 4 新 M= 8, 新 N=4 
8 エ 4 の 余り は 0 だ か ら 計 算 終了 。 最 大 公約 数 は 4 。 
人 IM N の 最小 公 倍数 し を 求め る に は , M と N を 掛け て 。M と N の 
最大 公約 数 G で 割れ ば よい 。 す な わ ち , エ =MN/G。 
















[プロ グラ ム 例 〕 

10 INPUT M,RN 

20 TE M>=N THEN 60 
30 LET W=M 


40 ET M=RN M と N を 変換 
50 LET N=W 
60 LET R=ーM-INT(M/N ) *RN 余り の 計算 


70 TE R=O THEN 110 
80 LET M=RN 
90 LE 呈 N=R 
100 GOTO 60 
110 PRINT "GOD=":RN 
120 ERND 
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分 数 の 計算 
分 数 は 小数 に な お し て 計算 する の が 最も 簡単 で ある が , 分 数 の 形 の 
まま 扱う こと も 可能 で ある 。 そ れ に は , 筆算 の 場合 と 同様 , 分 母 の 計 





算 , 分 子 の 計算 , 結果 の 約 分 な ど を , プロ グラ ム で 書い て や れ ば よい 。 


〔【 プ ログ ラム 例 〕 分 数 の 加算 の プロ グラ ム を 作っ て みよ う 。 公 式 は 
B,D BC+AD 


あら 4 
で ある か ら , 最も 簡単 に 済ま せる つも りな ら , 次 の よう に すれ ば よい 。 
10 TINPUT A。B,O,D 
20 LETT 選 =A*C 
30 LET EE=ーB*O 一 A*D 
40 PRTTNT 昌 ,」 リノ:A ji リサ Di: リノ サ 。 
(続き ) 9 
50 END 
も っ と て いね い に や る と すれ ば , 次 の よう に な る 。 
1) A と C の 最小 公 倍数 し を 求め る (前 ペー ジ 参 照 ) 
) E=L 
) F=B*(L ノ A ) 二 D*( 上 LC) 
4) E と F の 最大 公約 数 G を 求め る (前 ペー ジ 参 照 ) 
) 新 セ ニセ グ G, 新 ド ニード ング G 
) 必要 な ら ば , 過 分 数 を 帯 分 数 に な お す 
複素 数 の 計算 
これ も 同様 に , 実数 部 と 虚数 部 それ ぞ れ の 計算 を すれ ば よい 。 公 式 は 
(z 十 7 の 土 (c 十 7 の ) ニ Z 土 c 十 7(2 土 の ) 
(2 十 7 め )・(c 十 7⑦) ニ (2c 一 2 の ) 十 7(2 十 の c) 





6 十 2 め gc 十 6 9c 一 6 の 
c 十 77 co" 十 の 2? c< 十 2 


|Z 十 =Y22 十 6 g 十 7 の デー?7 の 


78 
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時 分 秒 の 計算 





時 , 分 、 秒 の 単位 を 併用 し て 時 刻 を 表す こと は 日 常 よく 行なわ れ て 
いる 。 そ の 加減 算 を 行なう に は 
60 進 法 の 加減 算 の プロ グラ ム を 作る 


すべ て を 秒 単 位 に 換算 し て 加減 算 を 行なう 
の 二 つ の 方 法 が ある 。TIF 文 の 練習 や ヵ 進 法 演算 の 扱い に 慣れ る た め に 
は 前 者 も よい が , 実務 に は 後者 の 方 が 簡単 で よい 。 





〔 プ ログ ラム 例 〕 「 太 時 加 分 si 秒 か ら 太 時 7 分 ss 秒 ま で は 何時 
間 何 分 何 秒 か ? 」 と いう 計算 (時 分 秒 の 引き 算 ) を する プロ グラ ム を 作 
っ て みよ う 。 
PRTINT "HH1。M1,81= リ : 
INPUT  H1,M1,81 

PR1INT "HH2,M2。82= リ ": 
INPUT  H2,M2,8S2 


10 
る 0 
3 0 
4 0 
5 0 
6 0 
7 0 
8 0 
9 0 
100 
110 
120 
130 
140 
150 


〔 出 力 例 ) 


LE 中 
廿 E 呈 
LE 呈 
古 世 〒 
BTMU 
E 呈 
ET 


デー タ の 入力 


mm ユー3600*H1 十 60*M1 十 81 秒 に 
T2 ニ 3600*H2 十 60*MZ2 十 82 換算 
T 三 m〒2ー 串 1 引き 算 を する 
H=INT(T/3600) 

R=mー3600*H 3600 で 割っ た 余り 
M=INT(R/60) 

8S=R 一 60*M 60 で 割っ た 余り が 秒 


PRINT H: "TKAN": 
PRINT Mi: "HUN": 
PRTTNF 85 TB 補 ⑥Y 


EEND 





HUN BEvnU 


フィ ー ト と イン チ で 表 さ れ た 長 さ の 加算 を 行なう ) プ ログラム 
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丸 
正 の 数 の , 小数 点 以下 を 丸め る 方 法 
切り 捨て 関数 INT を 用 いれ ば よい 。 
= エエ 慎 忠 () 
$ 切り 上 げ 符号 を 逆 に し て 切り 捨て て 待 号 を も と に も どす 。 
Y ニ = ニーINT( 一 XX) 
る 四捨五入 0.5 を 加え て 切り 捨て る 。 
Y=INT(X 十 0.5) 
負 の 数 の , 小数 点 以 下 を 丸め る 方 法 負数 の 場合 の 扱い は 、 
絶対 値 に つい て , 切り 上 げ , 切り 捨て , 四 捨 所 入 す る 
符号 つき の 意味 で 切り上げ, 切り 捨て 、 四 捨 也 入 す る 
の 二 通 り ある 。 前 者 な ら ば , 次 の よう に する 。 
人 切り 捨て マニ = ニーI1INT(-XX) 
全 切り 上 げ  Y=INT(X) 
人 四捨五入 Y= ニ ーINT( 一 X 二 0.5) 
後者 な ら ば , 次 の よう に する 。 
金 切り 捨て Y= ニ INT(X) 
全 切り 上 げ  Y マ = ニ ーINT(-XX) 
人 四捨五入 Y=INT(X 十 0.5) 
小数 点 以外 の 所 で 丸め る 方 法 
適当 な 係数 10' を 掛け て 「 小 数 点 の 所 で 丸め る 」 と いう 形 の 問題 に 
変換 し 上 記 の 処理 を し て か ら 10" で 割っ て も と に も どす 。 
( 例 ) 小数 点 以下 第 3 位 を 四 捨 所 和信 す る に は 
Y=INT(100*X 二 0.5)/ ノ 100 
た だ し , 2 進 法 や 16 進 法 の コン ピュ ー タ ー で は , 10 進 法 の 小数 を 正確 
に 表現 する こと が で き な い の て で 厳密 な 意味 で の 切り 捨て 、 切 り 上 げ , 
四捨五入 は 不可 能 で ある 。 
( 例 ) 0.15 は 2 進 法 で 正確 に 表現 で き な い 。 そ の 近似 値 が 0.15 よ 
り 小 さけ れ ば , 四捨五入 し て 0.1 に な りう る 。 


め 
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【3.1 節 の 応用 問題 】 

1 (素数 ) 

正 の 整数 N を 入力 し N が 素数 で ある か 否 か を 判定 する プロ グラ ム を 
作れ 。 

(ヒン ト ) 2 か ら yN ま で の すべ て の 整数 で 割っ て みれ ば よい 。N が 
M で 割り 切れ る か どう か を 調べ る に は , 

N/M 一 INT( N ン ノン M ) 

が 0 か どう か を 調べ れ ば よい 。 

2 (素数 表 ) 

1000 ま で の 素数 を 全部 求め て 出力 する プロ グラ ム を 作れ 。 

(ヒン ト ) 「Eratosthenes の ふる い | と いう 方 法 を 用 いる と よい 。 
1000 ま で の 素数 を 求め る の で あれ ば , まず 2 か ら 1000 ま で の 表 を 用 意 し , 
2 の 倍数 全部 、 3 の 倍数 全部 、… に 印 を つけ る (た だ し , 1 倍 , す な わ 
ち 自 分 自身 は 除く )。 こ うし て 1000 以下 の すべ て の 数 の 倍数 に 印 を つ 
けた と き , 残っ た も の が 素数 で ある 。 


いこ 0 生生 TS で NETce7 






これ を コン ピュ ー タ ー で 行なう に は , 寸法 1000 の 配列 A を 用 意 し ,、 そ 
の 要素 全部 に 0 を 入れ て お き 。, 
100 EEOR K=2 TO 8SQR(1000) 


110 FOR エ =2 TO 1000/K 

よる 0 ET 廿 ニ ]* 多 

130 TE >1000 THEN 160 
140 ET A( エ ) = ニュ 

150 NEX 呈 1 





160 NEXT K 一 
と いう で あい に 処理 し て いけ ば よい 。 な お , 行 100 と 行 110 の 間 で , K が 
素数 で ある か どう か を 調べ , 素数 で な けれ ば 行 160 まで スキ ッ プ する よ 
うに すれ ば , むだ が 少な く な り , 処理 時 間 を 大 幅 に 短縮 で きる 。 ま た , 
行 110 か ら 始ま る ルー プ も , よく 考え て みる と , K= ニ エー1 ま で は 既に 
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印 が つい て いる の で ある か ら , 
の 区 Tー 贅 中 1000/K 
まし て まい ゆい 。 
3 (素因 数 分 解 ) 
正 の 整数 N を 入力 し , これ を 素数 の 積 の 形 に 分 解す る プロ グラ ム を 作 
れ 。 た だ し NE る 10000 と し , 22 ま で の 素数 表 を 記憶 させ て 利用 し て よい 。 
(ヒン ト ) 下記 の 要領 で 処理 すれ ば よい 。 
KK=2。 3。 5 7, 11。 13, … の 順に 
1 KN な ら ば 終了 。 
っ N を K で 割っ て みる 。 割り切れ な けれ ば ー 一 
ー 一 割り 切れ た な ら ば ー 一 
K を 出力 。 
新 N= 現 NKK 
N> 1 な ら ば 前 に も どっ て 反復 
N = 1 な ら ば 終了 。 
し ーー 次 の K ヘ ーー 
100 ま で の 素数 は 下記 の 25 箇 で ある 。 
2 3 5 7 。 11 13 17 19 23 29 31 37 41 
43 47 53 59 61 67 71 73 79 83 89 97 
出力 は ,、 た と えば N=24 の 場合 
2 の 2 3 
と いう 形 に する の が 最も 簡単 で ある が , 工夫 すれ ば 
24 ニ 2*2*2*3 
(また は これ に 多少 。 空白 が 入っ た 形 ) に する こと が 可能 で あろ う 。 
4 (分 数 の 加減 乗除 ) 
ニニ っ の 分 数 B/A, D プ C を 入力 し , その 和 , 差 , 積 , 商 を 分 数 の 形 
で 計算 し て 出力 する プロ グラ ム を 作れ 。 
(ヒン ト ) 77 ペー ジ の プロ グラ ム を 参考 に する と よい 。 
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5 (複素 数 の 加減 乗除 ) 

ー つ の 複素 数 z」 ニ 2 十 7 の , zz 三 c 十 7⑦ を 読み 込み 、 その 和 , 差 , 積 , 
商 を 計算 し て 出力 する プロ グラ ム を 作れ 。 

(ヒン ト ) 77 ペー ジ の 公式 を 参考 に する と よい 。 

6 (年 月 日 の 引き 算 ) 

西暦 yi 年 如月 日 か ら 、 西暦 ys 年 ys 月 日 まで の 日 数 を 計算 
する プロ グラ ム を 作れ 。 
(ヒン ト ) 年 月 , 日 を 別個 に 引き 算 し て , 引け な けれ ば 上 位 の 値 か 
ら 借 り て くる , と いう 方 法 も 考え られ る が , 月 の 日 数 が 一 定 で な いた め , 
か な り 複 雑 な プロ グラ ム に な る 。 そ れ よ り も , 一 定 の 基点 (た と えば , 
1600 年 1 月 0 日) か ら の 日 数 を 計算 する プロ グラ ム を 作り その 日 数 で 
引き 算 を 行なう 方 が 簡単 で ある 。 

まず , 1 月 0 日 か ら 放 月 7 日 まで の 日 数 を 計算 する 方 法 を 考え て みる 
と よい 。 それに は , 各 月 の 0 日 が 1 月 0 日 か ら 何 日 目 に な る か を 電卓 で 


計算 し て 表 を 作り 記憶 きせ て お く 〈 と 簡単 で ある 。 
ee 





1 月 2 月 3 月 4 月 5 月 6 月 

0 31 59 90 120 151 
7 月 8 月 9 月 10 月 11 月 12 月 
181 212 243 273 304 334 





これ は 平年 の 場合 で ある 。 う る う 年 に は , 3 月 以後 , 上 記 の 値 に 1 を 加 
える 。 上記 の 値 に 7 を 加え れ ば , 1 月 0 日 か ら 放 月 日 まで の 日 数 N 1 
が わか る 。 

次 に , 1600 年 1 月 0 日 か ら , y 年 1 月 0 日 まで の 日 数 N 2 を 計算 する 。 
それ に は いろ いろ な 方 法 が 考え られ る が , 最も 簡単 か つ 明 快 な の は 。 ひ 
と まず 1 年 を 365 日 と し て 計算 し , それ に うる う 年 の ぶん の 補正 を 加え 
る , と いう 方 法 で ある 。 1 年 を 365 日 と し て 計算 する と , N 2 の 概算 値 
は 

365X( ャ ー1600 ) 
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と な る 。 こ れ に 「1600 年 か ら ゅ 年 まで の , うる う 年 の 回 数 ] を 加え れ ば 
よい 。 そ の 回 数 は 組み 込み 関数 INT を 用 いて 
INT((Yー1600 )/4 ) 十 ユ 1 
と いう 式 で 求め る こと が で きる 。 こ の 式 は 「 西 暦 を 4 で 割り 切れ る 年 は 
うる う 年 で ある 」 と いう 規則 に 基づく も の で ある '。 と ころ で , 暦法 に は 
100 で 割り 切れ る 年 は 平年 と する 
た だ し 400 で 割り 切れ る 年 は うる う 年 と する 
と いう 規則 も ある 「。 こ の 補正 を 行なう に は , 
INT((Yー1600 )/100 ) 1 を 引き 、 
INT((Yー1600)/400 ) 十 1 を 加え る 
と すれ ば よい 。 以 上 を まとめ る と , 計算 式 は 次 の よう に な る 。 


= ニ Yー1600 

N2=365* 士 INT(/4 ) 一 INT(/100) 
(続き ) 寺 TNT(/400 ) 十 1 

TE >0 THEN N2=N2Z 十 1 

N 1 =C ( M ) +D た だ し C は 左 の ペー ジ に 示し た 表 

うる う 年 の 3 月 以後 は N 1 に 1 を 加え る 。 

N=N1 十 NZ 

7 (曜日 ) 


西暦 y 年 娘 月 の 日 が 何 曜日 か を 調べ る プロ グラ ム を 作れ 。 
(ヒン ト ) 前 問 の ヒン ト で 説明 し た 「1600 年 1 月 0 日 か ら の 日 数 」 N 
を 計算 し ,、 それ を 7 で 割っ た 余り を R と すれ ば , 次 の よう に な る 。 

R 0 1 2 3 4 5 6 

曜日 金 土 日 月 火 水木 





† これ は 1582 年 に Gregory 13 世 が 定め た , いわ ゆる グレ ゴリ オ 暦 の 規則 
で ある 。1581 年 以前 に は 適用 で き な い 。 
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3.2 デー タ 如 理 





数 え る 





箇 数 を 数 える に は , 科 数 を 記録 する た め の 変数 (カウ ンタ ー) を 用 
意 し , 最初 そこ に 0 を 入れ て お き , 順に 1 を 加え て いけ ば よい 。 複数 


向 の カウ ンタ ー を 用 いれ ば , 分 類 し て 数 えん る こと も で き る 。 





例題 1 ] 50 日 間 の , 正午 の 気温 の 観測 値 T」、T。,。 …, T。。 を 読み 
30C 以上 で あっ た 日 数 K, 25C 以下 で あっ た 日 数 し を 数 えて 出力 する プ 
ログ ラム を 作れ 。 

〔 プ ログ ラム 例 ] K, し を カウ ンタ ー に 用 いれ ば 次 の よう に な る 。 


10 
る 0 
3 0 
4 0 
5 0 
6 0 
7.0 
8 0 
9 0 
100 
110 
120 
130 
140 


例題 2]) 1000 人 の 学生 の 都 道 府 県 番 号 ( 右 表 参 照 ) Nj, N。, 


上 世 TK= テ 0 カウ ンタ ー 
古 到 T エニ 0 を リセ ッ ト 
FOR エ = ニ 1 TO 50 

正調 選 U 再 気温 を 入力 


TE mm>= ニ 320 THEN 80 
TE T く =25 THEN 100 


GOTO 110 

攻 選 T KK 士 1 30C 以 上 

GOTO 110 

英 選 呈 エモ エ 十 1 25 で 以下 
NEXT 1 
PRTNT リエ > ニ = ニ 30 し りり : 衣 : り NTTT リ 結果 の 
PRINT "エマ =25 し 0: : "VNTTTU 出力 
世 ND 


ロリ 


Nooo を 読み , 都 道 府 県 別 の 人 数 を 数 えて 出力 する プロ グラ ム を 作れ 。 
[プロ グラ ム 例 〕 上 限 47 の 配列 人 KK を カウ ンタ ー に 用 いる こと に する 。 
10 DIM KK(47) 


る 々 0 
30 


FOR エ = ニ 1 TO 47 
ET K(T)=0 を リセ ッ ト 
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4 0 
5 0 
6 0 
7.0 
8 0 
9 0 
100 
110 
120 
130 
140 
150 
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NEXT 1 

FOR エ =1 TO 1000 
INPUT N 
TE N>47 THEN 140 
LET K(N)=K(RN ) 十 ユ 

NEXT 1 

FOR 1 エ =1 TO 47 


(入力 の 誤り ) 







府県 別 の 計数 


PRINT TI,K(1) 結果 の 出力 
NE 双 T 1 
STOP 
PRINT "DATA GA OKASITI" 


EEND 


1 200 人 の 学生 の 生年 月 日 を 入力 し , 生年 別 , 月 別 、 日 別 の 人 数 
を 数 えて 出力 する プロ グラ ム を 作れ 。 

2 例題 1 と 同じ デー タ を 読み ,「 前 日 より 気温 が 高く な っ た 日 ] 
を 数 えて 出力 する プロ グラ ム を 作れ 。 

3 都 道 府 県 名 を ロー マ 字 で 出力 する よう に 例題 2 を 改造 せよ 。 
(ヒン ト ) 都 道 府 県 名 を 番号 順に DATA 文 で 入れ て お い 
て , それ を 文字 列 変数 に READ し て PRINT する の が 一 案 
で ある 。 











都道府県コード (JISC6020) 
01 北海 道 11 埼玉 県 21 岐阜 県 31 鳥取 県 41 佐賀 県 
02 青森 県 12 千葉 県 22 静岡 県 32 島根 県 42 長崎 県 


03 人 岩 


手 県 13 東京 都 23 愛知 県 33 岡山 県 43 熊本 県 


04 宮城 県 14 神奈 川 県 24 三重 県 34 広島 県 44 大 分 県 
05 秋田 県 15 新潟 県 25 滋賀 県 35 山口 県 45 宮崎 県 
06 出 形 県 16 富山 県 26 京都 府 36 千島 県 46 鹿児島 県 
0 7 福島 県 17 石川 県 27 大 阪 府 37 香川 県 47 沖縄 県 
08 茨城 県 18 福井 県 28 兵庫 県 38 愛 娘 県 

09 栃木 県 19 山梨 県 29 奈良 県 39 高知 県 

10 群馬 県 20 長野 県 30 和歌 山県 40 福岡 県 
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合計 と 分 類 集計 

合計 を 求め る に は , 部 分 和 を 記憶 する た め の 変 数 (いわ ば 累計 器 ) 
を 設け , 最初 そこ を 0 に し て お いて , 値 を 順に 加算 し て いけ ば よい 。 
分 類 集計 を 行なう に は , 上 記 の よう な 「 果 計器 ] を 分 類 の 数 だ け 
用 意 し , 最初 は どれ に も 0 を 入れ て お き , 各 デ ー タ を 仕分 けし て 該当 
する 「 累 計器 ] に 加算 し て いけ ば よい 。 







分 類 集計 用 の 配列 を クリ ア 


例題 ] 家計 簿 の 整理 を する プロ グラ ム を 作れ 。 デ ー タ と し て は 
日 付 支出 費目 コー ド 金額 

を 入れ る も の と する 。 日 付 は 年 月 を 省き 日 の み で ,、 も し も 日 付 が 0 な ら 

ば , 「 入 力 デ ー タ の 終り 」 と 解釈 する こと に する 。 支出 費目 コー ド は , た 

と えば , 食費 が 1, 住居 光熱 費 が 2, と いう よう に 1 か ら 5 ま で ある と 

する 。 処理 と し て は , 日 付 別 の 集計 と , 支出 費目 別 の 集計 を 行なう こと 

に する 。 

〔 設 計 ) 日 付 , 支出 費目 コー ド , 金額 を 変数 名 D.C, A で 表し , 日 

付 別 累計 に 配列 K、 費目 別 累 計 に 配列 し を 用 いる こと に する 。 















配列 K 日 付 1 2 9。 ai 計 。 ーー 31 
小計 [ 選 ] [ 久 | 6|1 … … … … [As| 





配列 L 費目 1 2 3 4 5 
小計 [41 [|] [4] [4] [4 

















3.2 


呈 6) 
る 0 
3 0 
4 0 
5 0 
6 0 
7 0 
8 0 
9 0 
100 
110 
1 な 
130 
140 
150 
160 
1 の 0 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
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D ま MM 双 (81)。L(5) 
EOR D=1 TO 31 
LET K(D)=0 
NEXT D 
POR C=1 "TO 5 
LET L(OC)=O0 
NEXT C 
INPUT D,O,A に 
TE D=0 THEN 150 ー 


配列 K を 
クリ ア 


配列 し を 
クリ ア 


TE D>31 THEN 250 
TE C>5 THEN 250 一 一 イー オイ ーーーーーーー ヤ 
LET K(D)=K(D) 十 A 
LET 1L(C)=L(C) 十 A 
GOTO 80 ーーー 
PRINT "HTZUKE 一 BETU GOUKET1I" 
FEOR D=1 TO 31 

PRINT D,K(D) 
NEXT D 
PRINT 
PRINT "HIMOKU 一 BETU GOUKE1I" 
FOR C=1 TO 5 

PRINT C,L(O) 
NEXT O 
STOP 
PRINT "TIRENAOSITE KUDASAI! 一 一 
GOTO 80 入力 ミス な の で 入れ な お し を 要求 
END 





日 付 別 分 類 
結果 の 印刷 


費目 別 分 類 
苦 果 の 印刷 





1 上 記 の プロ グラ ム に 見 出し の 印刷 な ど を 加え て 使い であい の 
よい プロ グラ ム に 仕上 げ よ 。 

2 日 付 別 、 か つ , 費目 別 の 分 類 合 計 を 行なう に は どう すれ ば よ 
いか 。 
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行 和 と 列 和 デー タ ァ (7 王 1。…。。 








メー1. …, み ) を 読み 。 そ の - 
た 1 2 間 77 | 行 和 

4 
行 和 S, ジィ ァ ッ 1 イ ュ イ ュ 2 8 イ ュ カ Si 
1 2 21 。 22 。 "2 | S2 

7 

列 和 サー ジテ 

ee 2 | え m ze az | S ヵ 
総計 2 ニダ ダテ 列 和 | T,。 T … Tl Z 








を 計算 し て 出力 する プロ グラ ム を 作っ て みよ う 。 こ の よう) な 形 の 計算 は 
会 計 事務 や 統計 処理 に よく 現われ る 。 
〔 プ ログ ラム 例 〕 練習 で ある か ら ,。 は 5 以下 と し て よい で あろ う 。 


10 
る 0 
3 0 
4 0 
5 0 
6 0 
7.0 
8 0 
90 
100 
| 四 6) 
120 
130 
140 
150 
160 
/ 全 9 
180 
190 
る 00 
る 210 


DIM XX(5,.5),8(5),T(5) 
PRTINT M,N= リ ・: 
INPUT M,RN 
FOR エ =]1 TO 5 
LET 8(T1)=0 
ET 叩 (1 )=0 
NEXT 1 
LT 避 ニ 0 
FEOR 1 エ =1 TO M 
FEOR J ゴ =1 TO KR 
PRTINPT (0:TrW W リ : す , 0)= リ ・ 
TE 中 交 ( エ 。 す ) 
LET S(1I)=8( 1 ) 十 XX(T,~ 了 ) 
DET T( す J)=T( 了 ) 二 XX(T, 了 ) 
LBT = 名 二 双 (T, 了 ) 
NEXT 了 
NEXT 1 
PRTINT 
FOR ユエ =1 mTO M 
FEOR J ゴ =1 TO KN 
PRTN (エエ ) 。 


3.2 デー タ 処 理 89 





220 NEXT J 

230 PRINT "LTLV:S(1) 

240 NEXT 1 { た て 線 を 引く た め 
250 FOR 7J ニ 1 TO RN+1 

260 宮 芝 如 紅 人 ぜ ニ ー ニ ーー ニー ニー ニー ニニ ニニ ューー W 」 


270 NEXT 了 

280 PERTINT リーーー サ 
290 FEOR J ゴ =1 TO KR 
300 PRINT T(~) , 
3 る 10 NEXT J 了 

320 PRINT "リコ エ TOT Ei の 
330 ERND 


(出力 例 〕 





演習 1 上 記 の プロ グラ ム を 改造 し て 
行 ご と の 平均 値 。 列 ご と の 平均 値 
行 ご と の 分 散 列 ご と の 分 散 
Si」。S2。 …、S』 の 分 散 
Ti, T2, …,。 下 。 の 分 散 
を 計算 で きる よう に せよ 。 こ の よう な 計算 は 統計 解析 の 際 に 
し ば し ば 必要 に な る 。 





大 型 コ ンピュータ ー (M-200H) の 内 部 
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最大 値 , 最小 値 
一 組 の 値 xi、x2、…、 ァ 。 の 最大 値 G を 求め る に は , 次 の よう に 
すれ ば よい 。 





新 G ニ *: と する 


(反復 終了 時 の G の 値 が 最大 値 で ある ) 
最小 値 も 同様 な 要領 で 求め ある こと が で きる 。 
最大 値 G と 最小 値 S を 同時 に 求め る に は 次 の よう に する 。 


最初 、G ニ x」、S ニ ャ 」 と する 


(反復 終了 時 の G、 S の 値 が 最大 値 、 最小 値 で ある ) 


3.2 


例題 ] 


10 
る 0 
3 0 
4 0 
5 0 
6 0 
7 0 
8 0 
9 0 
100 
110 
120 
130 


〔 備 考 ] 
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60 人 の 学生 の 学生 番号 KK と 成績 X を 読み 成績 の 最高 点 と そ 
の 学生 の 学生 番号 を 出力 する プロ グラ ム を 作れ 。 

〔 プ ログ ラム 例 〕 最大 値 の 記憶 場所 C の は ほか に , 最大 値 に 対応 する 番 
号 の 記憶 場所 上 を 用 いる 。 

ET N=60 


TINPUT K, 交 
EET G= テ 文 
LT エニ 


最初 は 1 人 目 の 学生 が 
仮り の 王座 に つく 〈。 





FOR エ =] TO RN 


ET G テ 丸 
LETT エニ K 


TINPUT KK, 婦 
TE G> テ = THEN 100 





NEXT 1 *ーーーーーーーーーー 
PRINT "SAIKOUTEN!,G 

PRINT "BANGOU リ , エ 

END 


この プロ グラ ム だ と , 最高 点 の 同点 者 が いて も 1 人 し か 出力 


され な い 。 同点 者 を 全員 出力 する に は , 最高 点 が わか っ た あと で , また 
最初 に も どっ て , 全員 に つい て 同点 か 否 か を 調べ る の が 最も 簡単 で ある 。 


演習 


で や や 


最小 値 を 求め る プロ グラ ム を 作れ 。 
最大 値 と 最小 値 を 同時 に 求め る プロ グラ ム を 作れ 。 
「 絶 対 値 の 最大 値 ] を 求め る に は どう すれ ば よい か 。 
60 人 の 学生 の 性 別 (JISC6264 に よれ ば , 性 別 コ ー ド は 男 1, 
女 2 で ある ) と 成績 を 読み 込み , 男女 別 の 最高 点 を 求め て 出 
力 す る プロ グラ ム を 作れ 。 
ある 中 学 (3 学年 各 5 組 ) の 水泳 記録 会 の 記録 を 

学年 組 個人 番号 50m 自 由 形 の タイ ム 
の 形式 で 入力 し , 全校 で の 1 位 、 学 年 別 の 1 位 。 クラ ス 別 の 
1 位 , を 調べ て , その タイ ム と 個人 番号 を 出力 する プロ グラ 
ム を 作れ 。 
「 上 か ら 2 番目 の 値 ] を 求め ある に は どう すれ ば よい か 。 
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大 き さ の 順に 並べ る 
一 組 の デー タ *」。 zz。 …。 テ ヵ 。 を , 大 き さ の 順 (大 きい 順 、 ま た は 
小さ い 順 ) に 並べ か みえ た いこ と が よく ある 。 こ の よう な 処理 を ソー ト 
( 整列 、sorting) と いう 。 そ れ に は 大 別して 

内 部 ソー ト 主 記憶 装置 の 中 で ソー ト を 行なう 

外部 ソー ト 外部 記憶 装置 を 用 いて ソー ト を 行なう 
が ある 。 後 者 は , デー タ が 大 量 に あっ て 主 記憶 装置 に 入り きれ な り い 場 
合 に 用 いら れる 。 内 部 ソー ト の 方 法 と し て は , 最大 値 法 (最小 値 法 )、 
交換 法 、 ヒー プ 法 な ど が ある 。 外 部 ソー ト に は , 普通 、 マージ ・ ソ ー 
ト (merge sort, 併合 法 ) と いう 方 法 が 用 いら れる 。 
最大 値 法 大 きい 順に 並べ る に は , まず 最大 の も の を さがし , 次 
に それ を 除い た 残り の 中 で 最大 の も の を さがし , 以下 同様 に 「 残 り の 
中 で の 最大 値 ] を さがし て 並べ て ゆけ ば よい 。 













10 DIM X(100) 
20 INPUYT 
30 FOR 1 エ =1 TO KR 


デー タ の 読み 込み 


4 0 TINPUT XX(T1) 

50 NEXT 1 

60 FEOR エ =1 TO Nー1 第 7 回 め に は ri 
7 0 LT M=1 か ら *。 まで の 間 
8 0 FEOR J=T エ + オ 1 TO の 最大 値 を さがす 
90 IE X(M)>X( 了 ) THEN 110 

100 LT M=J 

110 NEXT ~ 了 

120 LBT W=X(1) 今回 の 最大 値 X(M) を I 
130 ET X( 1 )=X(M) 番 め の 位置 に も ちっ て くる 
140 LET X(M) =W た め の 入 れ か え 作 業 





150 NEXT 1 

160 FEOR 1 エ =1 TO K パ 
170 PRTINT XX(1T) 
180 REXT 1 

190 END 


結果 の 印刷 
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交換 法 "これ の 基本 形 は 「 隣 り 合 う 二 つの デー タ を 比較 し , 
正 順 (望ま し い 順 序 ) に な っ て いれ ば その まま 
逆順 ( 逆 の 順序 ) に な っ て いれ ば 入れ 奉 える 


と いう 処理 を , 列 の 最初 か ら 最後 まで 何 回 も くり か えす 」 と いう 方 法 
で ある 。 詳 し く 検 対し て みる と , 反復 回 数 は 最大 ヵ 一 1 回 で 十分 で あ 
り , 第 7 回 め に は 「 列 の 最初 か ら ヵ 一 ? 番 め まで ] 調べ れ ば 十分 で あ 
る こと が わか る 。 





10 DIM X(100) 

20 1INPUT NRN 

30 FOR エ =1 TO 

40 TINPUT X(1) 

50 NEXT 1 

60 EEOR M=N 一 ] TO 1 STEBP 一 1 


デー タ の 読み 込み 








7 0 FOR J ゴ =1 TO M 

8 0 TE 双 ( ゴ )> 双 (JJ 十 1) THEN 120 

9 0 ET W=X(J 了 ) 
100 ET 双 () ニ X(J 二 1 ) 入れ か え 
110 ET XX(J+ オ 1 ) =W 

120 NEXT 耳 
130 NEXT M 
140 FOR エ =1 TO RT 

150 PRTINT X(T) 結果 の 印刷 
160 RNEXT 1 

170 世 ND 


人 ヒー プ 法 デー タク の 箇 数 が 100 で らい まで な ら ば , 以上 の 方 法 
で 実用 上 十分 で ある 。 し か し デー タ の 量 が も っ と 多く な る と , これ ら 
の 方 法 は 計算 の 手間 が 急増 し て 不利 に な る 。 そ の 理由 は , 要する に , 


反復 第 7 回 の 処理 の 際 に 前 回 (第 # 一 1 回 ) まで の 情報 が 十分 に 生か 
され な いた めで ある 。 こ れ を 改め る た め , トー ナメ ント 試合 の 方 式 を 
取り 入れ た の が ヒー プ 法 で ある 。 
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ヒー プ 法 の デー タ 構造 





8 9 10 11 12 13 14 15 
〔 原 理 ) 上 図 の よう な 組織 の 会 社 を 考え る 。 当 社 で は 常に 
(直系 の 上 司 の 実力 )>( 直 系 の 部 下 の 実力 ) 
と いう 関係 が 成り 立つ よう に し て いる 。 こ の 関係 を 維持 する た め , 人 事 
異動 は 次 の よう な 方 式 で 行なっ て いる 。 

1) 社長 が 退任 し た と き は , 第 1 部 長 と 第 2 部 長 の 実力 を 比較 し , 実 
力 の ある 方 を 社長 に 昇格 きせ る 。 そ の 後任 に は , その 部 の 第 1 課長 と 第 
2 課長 の 内 , 実力 の ある 方 を 昇格 させ , その 後任 に は 、 その 課 の 第 1 係 
長 と 第 2 係長 の 内 の 実力 の ある 方 を 昇格 させ る 。 以 下 同様 。 

2) 新入 社員 を 採用 し た と き は , 一 応 、 最 下位 に 配属 する が , た だ ち 
に その 直属 の 上 司 と 実力 を 比較 し , 逆順 な ら 変 代 さ せ , 交代 し た 場合 は 
も う 一 つ 上 の 上 司 と 実力 を 比較 し 逆順 な ら ば 交代 させ る 。 以 下 同様 。 

3) 会 社 設立 の 際 に は , 社員 な し の 状態 か ら 始め て , 上 図 の 番号 順に 
ポス ト を うめ て ゆき , その た びに 上 記 2) の 処理 を 行なう 。 

上 記 の よう な 組織 を ヒー プ (heap) と いう 。 こ れ を 用 いて ソー ト を 行 
な うに は , まず デー タ *」。 テ 2,、…。 %。 を 上 記 3) に よっ て ヒー プ の 形 
に 並べ 次 に 「 社 長 ] の 所 か ら 一 人 ずつ 引き 抜い て 順に 並べ その 後任 
を 上 記 1) の 方 法 で うめ て ゆけ ば よい 。 

【 プ ログ ラム 例 ] この よう な 処理 を BASIC で 行なう に は 上 図 の よう 
な 社員 番号 (配列 X の 添字 ) を 用 いる と よい 。 こ うす る と 上 司 の 番号 は 
「 部 下 の 番号 の 1/2 の 整数 部 ]」 ま た 部 下 の 番号 は 「 上 司 の 番号 の 2 倍 
また は それ プラ ス 1 |」 と な り 容 易 に 上 下 の デ ー タ を 得る こと が で きる 。 
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デー タ 処 理 


3.2 
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【3.2 節 の 応用 問題 】 
1 (素数 の 分 布 ) 
3.1 節 の 応用 問題 2 (素数 表 ) の プロ グラ ム を 改造 し て , 
100 以 下 の 素数 の 箇 数 
101 か ら 200 ま で の 範囲 の 素数 の 箇 数 


901 か ら 1000 ま で の 男 囲 の 素数 の 箇 数 

を 数 えて 出力 する プロ グラ ム を 作れ 。 

2 (欠席 日 数 ) 

ある クラ ス で , 1 年間 、 毎 日 。 欠席 者 の 生徒 番号 ( 1 40 の 一 連 番号 

を 用 いて いる ) を 記録 し た メモ が ある 。 そ の 記録 を 入力 し , 
1 日 も 休ま な か っ た 生徒 
1 日 だ け 休 ん だ 生徒 
2 日 休ん だ 生徒 


こ 分 類 し て . それ ぞ れ に 該当 する 生徒 番号 を 出力 する プロ グラ ム を 作れ 。 
3  ( 金 種別 計算 ) 
給料 の 支払 い は 銀行 振込 み の 会社 が 多く な っ た が , まだ 現金 で 支給 
て いる 所 も 少な く な い 。 現 金 で 渡す 場合 に は , 各 人 の 給料 袋 に 分 け て 入 
れる 関係 上 , 1 万 円 札 の ほか に , 5 千 円 札 , 千 円 札 、500 円 札 , 百 円 玉 , 
ト 円 玉 を , 必要 な 枚数 だ け 用 意 し な けれ ば な ら な い 。 そ の 必要 枚数 を 計 
算 す る の が 人 金 種別 計算 で ある 。 従 業 員 ヵ 人 ( ヵ ミ 100 と する ) の 今月 の 
現金 支給 額 2。, の z、…, @ の , を 読み 込み 、 金 種別 計算 を 行なう プロ グラ 
ム を 作れ 。 
(ヒン ト ) 各個 人 の 必要 枚数 は 次 の よう に し て 計算 で きる 。 
(現金 支給 額 ) エ (1 万 ) = (1 万 円 札 枚数 ) 余り (1 万 円 未満 ) 
( 1 万 円 未 演 ) (5 千 ) = (5 千 円 札 枚数 ) 余り (5 千 円 未満) 
( 5 千 円 未満 ) エ ( 千 ) =( 千 円 札 枚数 ) 余り ( 千 円 未満 ) 
以下 同様 
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4 (不定 箇 数 の 読み 込み ) 

一 組 の デー タ 」, の 2, … ぃ の ヵ 。 を 入力 する と き , デー タ の 箇 数 ヵ ヶ が わ 
か っ て いれ ば , z を 最初 に 入力 する こと が で きる が , 場合 に よっ て は , 
2 が わか ら な いと か , 数 える の が めん どう だ が ら 数 えな いで 済ま せ た い 
と いう こと が ある 。 そ の よう な 場合 に は , 最後 の ゲー タ に 何 か 印 を つけ 
る か , ある い は 最後 の デー タ の 次 に 何 か 特別 な 値 を 入れ る か し て 、 入力 
を 終了 させ れ ば よい 。 

上 記 の よう な 方 式 で , 不定 箇 数 の デー タ を 読み 込み 、 その 平均 値 を 計 
算 す る プロ グラ ム を 作れ 。 

(ヒン ト ) た と えば 最後 の デー タ の 次 に 99999 を 入れ る こと に し て , 
次 の よう に 処理 すれ ば よい 。 






平均 値 ) ニ ニ 
(平均 値 ) ニ テ 





デー タ を S に 加え , 
に 1 を 加え る 。 


フー グ ュ 。 2。 "つえ ァ と 2。 "5 ツメ を 読み 込み , 相関 係数 
%(xー タ (ター) 
770xOy 


(むだ 守 敢 。 。 , Ox, の y は , 1 ュ 。 2。 "ん お よび か ヵ , ルト M 失 / 
の 平均 値 お よび 標準 偏差 ) を 計算 する プロ グラ ム を 作れ 。 


98 3 プロ グラ ミン グ 技 法 


3.3 グラ フ 表 示 


グラ フ 表 示 の 方 法 に は 
文字 出力 機能 だ け を 用 いる 
クラ フ 表 示 機 能 を 用 いる 
の 二 通 り が ある 。 人 後者 の 方 が きれ いて で 精密 な グラ フ を 描け る が , その た 
め の 装 置 を 必要 と し , 使用 法 が 機種 に よっ て それ ぞ れ 條 う の で , ここ で 
は 前 者 に つい て 説明 する 。 


3.3.1 棒 グ ラ フ 

デー タ ri」。 2。 …。 テ ヵ 。 の 値 を 棒グラフ で 表示 する に は , 概略 、 次 の 
よう に すれ ば よい 。 

1) 1 文字 で いく つ を 表す か を 決め る 。 そ の 係数 を c と する 

2) 各 r: に c を 掛け て 四捨五入 し , 文字 数 如 , を 算出 する 

3) 適当 な 文字 を 回 くり か え し て (一 つの 行 に ) 出力 する 


[プロ グラ ム 例 〕 

10 DIM XX(20) 

20 INPUT KN,O N と C を 指定 
30 EEOR 1 エ =1 TO KN 

4 0 TNPUT X(T1) デー タ を 読む 


50 NEXT 1 
60 FOR 1 エ =1 TO KN 


7 0 ET M=C*X(1) 
80 FEOR J=1 TO M 
90 PRINT !* リ : 
100 NEXT 了 
110 PRINT 


120 RNEXT T エ 
130 ERND 





3.3 グラ フ 表 示 99 
3.3.2 曲線 y ニ (x+) の グラ フ 

関数 y ニ ア (*) の グラ フ を 4 ミ * ミ ム の 男 囲 で 描く に は , 係数 c, 原点 
位置 ん , 間隔 ん を 適当 に 定め 。 分 点 

g 三 xo 。* ュ ー6 十 7 xs 王 6 十 27 … * ヵ 6 十 7 王 の 

に お ける 関数 値 yy。 yi, yz。…、 yz を 計算 し , 各 y: に c を 掛け ん を 
加え て プリ ンタ ー に 出力 すべ き 空 白 の 箇 数 w, を 算出 し 、 改 行 し て : 
箇 の 空白 を 出力 し て 適当 な 記号 (た と えば ※*※ 印 ) を 出力 すれ ば よい 。 
[プロ グラ ム 例 〕 

10 DEFE FNC(X)= ニ 1/(1 十 X*#X) 利用 者 が 定義 する 
20 PRINT "A,B,C,H,K ニ = リ 

30 1INPUT A,B,O,H,K 


40 LET N=INT((B 一 A )/H 二 0.1) 
50 FEOR 1 エ =0O TO KN 





6 0 LT XーA 十 1*H 
70 LET Y=FNC(X) 
80 LRT エー=INT(O*Y+0.5)+K 
90 POR J=1 TO エ L 2320 
100 PRINT "し " : 
110 NEXT J 
120 PRINT "* リ 
130 NEXT 1 
140 END 
な お , 上 記 の 文 90 一 文 120 の か わり に ., 
105 PRINT TAB(L) :"* リ 


と し て も よい (TAB に つい て は 51 ペ ー ジ 参照 ) 。 


演習 1 左記 の プロ グラ ム の 係数 c を 自動 的 に 算定 する 方 法 を 工夫 せ 
よ 。 上 記 の プロ グラ ム の ん に つい て も 考え よ 。 
2 グラ フ の 上 端 と 目盛 り を 出力 する に は どう すれ ば よい か (c 
と ん の 値 は 固定 し て よい 。 た と えば c 三 10, ヶ 三 20 )。 
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3.3.3 等 高 線 

関数 げ (*。 y) の 等 高 線 (等 値 線 ) を 描か せ た い 場合 が よく ある 。 等 高 
線 を 「 線 ] と し て 描く に は , か な り 手 間 が か か る 。 し か し , 右 下 の 出力 
例 の よう な 図 な ら ば 容易 に 描け る 。 そ の プロ グラ ム を 作っ て みよ う 。 

描く 範 胃 は, 4 ミ * ミ 5, c ミ ッ ミ とし, 関数 げ (*, ッ ) の 最小 値 と 
最大 値 の だ いた い の 値 は 訪 、 方 で も る と する 。 分 割 の 細か さ は , 方 向 
方向 と も 40 分 割 , 了 の 値 に 関し て は 10 段 階 (し ま の 本 数 と し て は 5 本 ) 
と する 。 





[プロ グラ ム 例 〕 

10 DEE ENC(X)= ニ STN(X)*COS(X) 利用 者 が 
20 PRINT "A,B,CO,D,EO,FE1= リ 定義 
30 INPUT A,B,O,D,EO,F1 

40 LET H=(B 一 A)/ ノ 40 * の 間隔 
50 LET K=(D-O) ノ 40 y の 間隔 
60 LET W=(E1-EO) ノ 10 る の 間隔 
70 FEOR J=0 TO 40 

8 0 世 T マニ 0C 二 ( 40 一 ) *K 

90 FOR エ =0 TO 40 
100 ET メーA 十 T*H 

14.⑩ ET ー ニ FRNO(X,Y) 
120 ET エニ (BOO) ノ /W 

130 FOR M=0 TO 10 8TEP 2 

140 TE 串 く M THEN 170 一 
150 TE T く M 二 ] THEN 190 

160 NEXT M 

170 PRTNT "LV 

180 GOTO ez00 

190 PRINT 2 
200 NEXT 1 

210 PRTINT 改行 


る 20 NEX 中 耳 
る 30 ERND 


3.3 グラ フ 表 示 101 

(解説 〕】 上 下方 向 を y 軸 。 左右 方 向 を * 軸 と する 。40 等 分 だ か ら 
全部 で (上 下方 向 ) 41 行 (7 テ 0, 1, …, 40) 
各行 に (左右 方 向 ) 41 字 (*ー0。 1 の 。 40) 

と な る 。 こ れ を 上 か ら 1 行 ず つ 出 力 す る の で ある が , その 際 
最初 に 出力 する 行 (7= テ 0 ) が ッ y の 上 上限 7 に 対応 


最後 に 出力 する 行 (7 ニ 40) が ッ の 下限 c に 対応 
と な る こと に 注意 する (こう し な いと 図 が 上 下 逆 に な っ て し まう )。 
た が っ て , 第 7 行 , 第 7 字 め の xr, y の 値 は , 
*: 三 の 十 7 た だ し , ヵ = テ ( ヵ ムーZ) グ 40 
ーーc 二 (40 一) ん た だ し , を = テ ( の ーc) グ 40 
と な る 。 こ の よう な 各 点 に つい て , 以下 の 処理 を 行なう 。 
1) 関数 値 > ニ ア (xi。y,) を 計算 する 。 そ れ か ら 
7 (< 一 旋 ) プ の た だ し , = テ ( カ ー カ リグ 10 
と い う 変数 変換 を 行なう 。 
2) 7 の 値 が , 
1 ミ / く 2,。3 ミ 7/ く 4。5 ミ 7/ く 6,、7 ミ 7/ く 8 9 ミミ 7 く 10 
の どれ か に 入れ ば * 印 、 そう で な けれ ば 1 字 分 の 空白 を 出力 。 
上 記 2) の 処理 を 行なっ て いる の が , 文 130 一 文 190 で ある 。 
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3.3.4 散布 図 (XN-Y プロ ッ ト ) 
デー タ の 組 (xi。 yi)。(xz, ya), …。( テ yz) を 読み 、 ァ ーッ 平面 に 
プロ ッ ト す る プロ グラ ム を 作っ て みよ う 。 


〔 設 計 ) 


記憶 容量 が 十分 に あれ ば , 40X40 な いし 100X100 程 度 の 2 次 


元 配列 を 用 意 し 。 デー タ を ひと まず そこ に プロ ッ ト し , そこ か ら ま と め 
て 出力 する 、 と いう 方 法 を 用 いる の が 簡単 で よい 。 

スケ ー リ ング の 係数 は 、 入力 し て も よい が , ここ で は 最大 値 と 最小 値 
の 差 を も と に 算出 する こと に する (こう すれ ば スケ ー ル ・ オ ー バ ー の 危 
険 が な い )。 な お , 座標 軸 の か わり に , 平均 値 て 、 了 を 表す 線 を 図 に 入れ 


る こと に 


まず 人 。 


[プロ グラ ム 例 ]〕 


10 
る 0 
3 0 
4 0 
5 0 
6 0 
7.0 
8 0 
9 0 
100 
110 
1 る 0 
130 
140 
150 
160 
170 
180 
190 
200 
る 10 


DIM エ L(41,41) ,X(100 ) ,Y(100) 
PRTINT "N= リ : 
TINPUT N 
P 長 T 本 電王 区 riY 
INPUT XX(1 ) ,Y(1) 
LBT X0=X(1 ) * の 最小 値 の 初期 設定 
DEB 中 XX]=XX(1 ) * の 最大 値 の / 
LRT YO0=Y(1) の 最小 値 の 。 ヵ 
世 思 Rm マユ = ニ Y(1] ) y の 最大 値 の / 
占 氏 中 81= 文 (1) * の 平均 値 の 7 
世 F〒 82= テ Y(1) の 平均 値 の 
FOR M=2 TO 

INPUT X(M) ,Y(M) 

LT 81=81+X ( M ) 

EET 82= ニ 82+Y( M) 

TE X(M)>XO THEN 180 

LBT XX0=X(M) 

IE X(M) < く X1 THEN 200 

LET X1 ユ = ニ X(M) 

IE Y(M)>YO THEN 220 

ET Y0=Y(M) 


3.3 グラ フ 表 示 103 


220 
2350 
240 
250 
260 
270 
280 
290 
300 
310 
3 る 20 
330 
340 
350 
360 
370 
380 
390 
400 
4410 
420 
430 
440 
450 
460 
470 
480 
490 
500 
510 
520 
530 
540 


TE Y(M)<Y1 THEN 240 
ET Y] ユ = ニ Y(M) 
NEXT M 
ET H=(X1 ユ 1 一 XO)/ ノ 40 
LT K=(Y1 ユ ーYO)/40 
LE 呈 T0=(8S1/NーXXO ) /H 
TL 思 〒 0=(S82 ノ NーY0 ) / 
FEOR エ =0 TO 40 
FEOR J ゴ =0 TO 40 
天 ( ま ょ びり 上 1 
NEXT J 
ET (1 ,JO ) =2 
NEX 呈 T 1 
FOR J=0 TO 40 
包 F 本 ( エ TO,J ) = る 2 
NEXT J 
FEOR M=1 TO KR 
ET エー ニ (X(M) 一 双 0 ) /H 
LBT ゴー ニ (Y(M) 一 Y0 ) / 
LET L(1T,J) = る 
NEXT M 
FEOR J= ニ 40 TO 0 STEP 一 1 
FEOR エ =0 TO 40 
ON 1L( エ , 了 J) GOTO 460,480,500 
PRINT "し ": ーー 
GOTO 510 
PRINT " 二 『": 
GOTO 510 
PRINT "*『!: 
NEXT 1 
PRT1IRNT 改行 の た め 
NEXT J 
END 
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3.3.5 応 用 問 題 
1 (ヒストグラム ) 
N 人 の 生徒 の 試験 の 点数 (100 点 満点 と する ) を 読み 込み , 
0 一 4 点 5~ 9 点 10 一 14 点 15~19 点 
20~24 点 0 の 90~94 点 95 点 以上 
に 分 け て 人 数 を 数 え , 点数 の 分 布 を 棒グラフ で 出力 する プロ グラ ム を 作 
れれ 。 
2 (年 齢 別人 口 構成 図 ) 
地方 自治 体 の 、 男女 別 、 年 齢 別 の 人 口 を 読み 込み 下記 の よう に 図 化 
する プロ グラ ム を 作れ 。 


90 歳 以上 ネエ ネネ 

80 一 89 ポポ 上 ※ 玉 玉 
70ー79 ポ 氷 来 玉 玉 ネ 

60 一 69 玉水 氷 氷 ネネ 玉 玉 玉 
50ー59 米 玉 米 玉 玉 玉 氷 玉 玉 玉 玉 


40 一 49 ポ 玉 玉 玉 玉 玉 玉 虐 玉 玉 玉 玉 氷 来 玉 


3 (関数 の グラ フ ) 
3.3.2 節 で 例示 し た プロ グラ ム (また は それ と 同様 な 機能 を も つ プ ロ 
グラ ム ) に より , 次 の 関数 の グラ フ を 描い て みよ う )。 


1i ) ッ ー ァ < (* ヶ 三 0 か ら ァ テ 1 ま で ) 
ii) ッ ーsinr (0 か ら ャ ニー ァ ラジ アン まで ) 
) ッ ー1/(1 十 *? ) (* ニ テー3 か ら ァ ニテ 十 3 ま で ) 
jy ) ッ ニ 1ー ァ ? (* ニ テー 1 か ら ァ ー 十 1 まで ) 
) ッ ーcosh (* デ テー2 か ら ァ テ 十 2 まで ) 


また , プロ グラ ム を 少し 改造 し て 
ッ ー1/* (|*| ミ 1, |y|S ミ 1 の 範囲 で ) 
の グラ フ を 描い て みよ う )。 
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4 (極座標 ) 
概 座標 で 表 き れ た 関数 
= が (の 


の グラ フ を 描く プロ グラ ム を 作れ 。 
(ヒン ト ) 3.3.4 節 の プロ グラ ム を 改造 すれ ば よい 。 そこ で 用 いる ァ 。, 
y ッ の 値 と ヶ , の の 関係 は 
ャ ー ア COS の 
ッ デ ケ ァ sin の 
で ある 。 
5 (模様 を 描く ) 
上 の プロ グラ ム を 用 いて , 次 の 曲線 を 描い て みよ う 。 
1.) 9 すま き 
ァ ー の ( 0 ミ の 9 ミ 6Z) 
ii ) 花 模様 
ヶ 三 sin5 の ( 0 ミ 9 ミ 2 ァ ) 
損 ) 心臓 形 (cardioid ) 
ヶ 三 cos の 十 1 ( 0 ミ 9 ミ 2 ァ ) 
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3.4 行列 (マト リッ クス ) の 計算 


3.4.1 行列 演算 機能 を も つ 処 理系 の 場合 

TSS-- BASIC な ど 。 一 部 の (主として 中 一 大型 コン ピュ ー タ ー の ) 
BASIC に は 行列 演算 機能 (MAT 命令 ) を 備え そ て いる も の が ある 「'。 こ 
れ を 用 いる と , 行列 や ベク トル の 演算 が 次 の よう に 簡単 に 書け る 。 








機能 書き か た ( 例 ) 備 考 
行列 の 和 MA C ニ A 二 B 6 

os 一 般 の 式 は 
行列 の 差 MAT COC= ニ AーB 

寺 書け な い 。 
行列 の 積 MAT CA*B 

スカ ラー 倍 MAT C= ニ (XX)*A ( ) 内 は スカ ラー 
導 行 列 MAT COC=INV(A) 

レン 式 の 中 に は 
転 置 行列 MAT O=TRN(A) 書け な い 
常行 列 MAT C=ZER 0 
cs (代入 の み ) 
単位 行列 MAT C= テ IDR 

行列 の 入力 MAT REBAD A(3,.3) 入出 力 文 の 
行列 の 出力 MAT PRTINT 4A,B 一 種 





特に 「 行 列 型 ] と いう よう な 型 が ある わけ で は な く , DIM 文 で 宣言 し 


3.4.2 行列 演算 機能 を も た な い 処 理系 の 場合 

行列 演算 機能 は 確か に 便利 で ある が , 処理 系 の 負担 が 大 きい の で 省略 
し て いる 機種 も 多い 。 そ の よう な 場合 に は , 自分 で プロ グラ ム を 書か な 
けれ ば な ら な い 。 と いっ て も , 逆行 列 以外 は 簡単 で , 定義 式 を その まま 
BASIC の 文 に な お し て 書け ば よい 。 な お , 逆行 列 の 計算 法 に つい て は あ 
と で 説明 する (4.8 節 )。 





† BASIC の 元祖 本 家 の Dartmouth 大 学 の シス テム に は , 第 3 版 
(1966 年 ) か ら 入 っ て お り , BASIC の 特長 の 一 つ に な っ て いた 。 
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行列 の 乗算 と 入出 力 の プロ グラ ム 例 〕 行列 A、B を 入力 し , その 積 


C=A 


・B を 計算 し て 出力 する プロ グラ ム の 例 を 示す 。A は / 行列 、 


B は 行列 と する 。 (C は 当然 。 / 行列 と な る )。 


1 0 
る 々 0 
3 0 
4 0 
5 0 
6 0 
7.0 
8 0 
9 0 
100 
せ 0 
120 
130 
140 
150 
160 
170 
8⑩ 
190 
200 
る 々 10 
る 2 る 0 
230 
240 
250 
260 
270 
280 
290 


DIM A(8,.8) ,B(8,.8),O(8,8) 
TINPUT TL,M,RN 


FOR エ =1 mO エ 1 
FOR J=1 TO M 
PRTIRNT WUA( サリ.T。 0 0 本 ・ ) 三 り ・ 
INPUT A(I,~) 
NEXT ~ 了 A の 入力 
NEXT 1 
FOR 1I=1 TO M T 
FOR J=1 TO N 
PRINT "B( 0 iTVU 0 ii WU)= リ : 
INPUT B(I,~ 了 ) 
NEXT J B の 入力 
NEXT 1 
FOR 1=1 rmO エ r - 


FOR J=1 TO N | 
LET 8=0 積 の 計算 





FOR K=1 TO M 
LET 8=S+A(T,K)*B(K,~ 了 ) 
NEXT K 
LET C(1T, 了 )=S 
NEXT ~J 
NEXT 1 
FOR エ =1 TO エ L _ 
FOR J=1 TO N C の 入力 
PRINT "COC( ViTiVW。 WW: 了 i 0)= リ 
NEXT (前 行 の 続き )| :O( T。J ) 
NEXT エ 


BND 
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3.4.3 応 用 問 題 

MAT 文 を 使用 で きる 機種 の 利用 者 は それ を 用 い , MAT 文 を 使用 で 
き な い 機種 の 利用 者 は MAT 文 を 使わ ず に 書く こと 。 

1 (行列 の 和 ) 

3 行 3 列 の 行列 A、B を 入力 し , その 和 C= ニ AB を 出力 する プロ グ 
ラム を 作れ 。 

2 (行列 の 積 ) 

コン ピュ ー タ ー て 次 の 計算 を し , 行列 の 乗算 で は 交換 法則 が 成立 し な 


いこ と を 確認 せよ 。 


き 。 MM 9 
U 間 
3 (長方形 行列 ) 

コン ピュ ー タ ー て 次 の 計算 を し , 結果 を 比較 せよ 。 


6 3 3 5 
8 1 5 

3 2 5 1 
2 9 3 

中 0 9 5 
6 3 1 

8 2 
3 2 0 

1 9 
3 5 9 

5 3 
5 1 3 


(ヒン ト ) 107 ペ ー ジ の プロ グラ ム を 利用 し て よい 。 
4  ( 転 置 行列 と の 積 ) 
行列 A、B を 入力 し , A の 転 置 行 列 と B の 積 
C= テ ATB 
を 計算 し て 出力 する プロ グラ ム を 作れ 。 ま た, 
D= テ ABT 
を 計算 し て 出力 する プロ グラ ム を 作れ 。 こ れ ら の プロ グラ ム に , 入力 デ 
ー タ と し て 特に A と B に 同じ 行列 (長方形 行列 で も よい ) を 入れ て みて , 
ATA お よび AAT が 対称 行列 に な る こと を 確認 せよ 。 
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5 (行列 と ベク トル の 積 ) 

行列 A と ベク トル ェ を 入力 し , その 積 y ニ Ax を 出力 する プロ グラ ム 
を 作れ 。 

6 (座標 変換 ) 

右 の 図 の XX-Y 座標 系 で (X, Y) 
と 表 さ れる 点 の *-y 座標 (x, ヶ ) 
は 次 の 式 で 求め られ る 。 

2 cos の sm の | |1X 

HH W 明 間 
の 9 お よび X, Y を 入力 し て *, ッ の 値 
を 計算 し て 出力 する プロ グラ ム を 作れ 。 

7  ( 連 乗 ) 

行列 A,B と ベク トル x (行列 は ヵ 行 ヵ 列 、 ベ クト ル は z 次 元 ) を 入 
カレ し , 積 

ッ デ テ ABx 
を 計算 し て 出力 する プロ グラ ム を 作れ 。 

(ヒン ト ) 先 に 積 AB を 計算 し . それ を に 掛け る ,、 と いう 手順 で 計 
算 す る と 計算 量 が 多く な っ て 損 で ある 。 それ より も , 先 に Bx を 計算 し , 
それ に A を 掛け る 方 が よい 。 

8 (要素 パタ ー ン の 出力 ) 

ディ スプ レイ 装置 や プリ ンタ ー は 横幅 が 限ら ちら れ て いる の で , 列 の 数 が 
多く な る と , 行列 の 1 行 分 を 出力 の 1 行 に お さめ る こと が 困難 に な る 。 
そう いう 場合 , 詳し い 値 を 見 る た め に は , 何 行 に も 分 け て 出力 する ほか 
な い が , デバ ッ グ な どの 目的 に は 

要素 が 0 な ら ば 「.」 印 

要素 が 正 な ら ば 「+] 印 

要素 が 負 な ら ば 「 一 ] 印 
と いう よう な 形式 で 全体 の パタ ー ン を 見 た いこ と が ある 。 そ の た め の プ 
ログ ラム を 作れ 。 
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3.5 擬似 乱数 に よる 数 値 実 験 


3.5.1 関数 RND 

統計 的 現象 の 「 実 験 ] を コン ピュ ー タ ー で 行なう こと が で きる 。 そ の 
た め の 道 具 と し て RND と いう 関数 が 用 意 き れ て いる 。 

関数 RND は , 0 ミ z く 1 の 男 囲 の 一 様 乱 数 を 作り 出す 。 す な わ ち , 
関数 RND を 呼ぶ た びに 、 上記 の 範囲 の 値 4 ヶ が ラン ダム (random., 無 作 
為 、 不 規則 、 で た ら め ) に 出 て 来る (一 様 分 布 に 従っ て )。 


実際 に どん な 数 が 出 て 来る の か , 次 の よう な プロ グラ ム を 作っ て , 実 
必 6 


行き せ て みよ う 。 
乱数 列 を 出力 する プロ グラ ム 


10 FEOR 1 エ =1 TO 2 る 0 
る 0 ET U=RND 

3 0 PRINT U 

40 NEXT 1 

50 END 


乱数 発生 の し くみ 乱数 を 作る に は , サイ コロ を 振る よう に , 物理 現 
象 を 用 いる の が 理想 的 で ある が , コン ピュ ー タ ー の 中 で そう 簡単 に 良質 
の 物理 乱数 を 作る こと は で き な い の て で, 普通 は ,. た と えば 

Ni」 デ (Ni を KK 倍 し て M で 割っ た 余り ) 
ューN ョ グン M 

(た だ し , N,、M, K は いずれ も 正 の 整数 ) と いう よう な 方 法 に より , 
「 乱 数 に 似 た 性 質 を も つつ 数列 ] を 作り 出し て 使用 する 。 こ れ を 擬似 乱数 
と いう 。 これ は 規則 的 に 作り 出す の で ある か ら , 完全 に ラン ダム と は い 
えな い が , うま く 作 れ ば (た と えば 上 記 の 方 法 の 場合 , 定数 K, M と 初 
期 値 N。 を 適切 に 選べ ば ) 初等 的 数 値 実験 の 目的 に は 十分 使え ん る, と いう 
こと が 知ら れ て いる 。 

RANDOMIZE 文 擬似 乱数 は , 数 列 と し て は 乱数 に 近い 性 質 を も つ 
が , 同じ 初期 値 N。 を 使え ば 同じ 数 列 が 出 て し まう 。 そ れ を 避け る に は 
プロ グラ ム の 最初 に RANDOMI ら EE と 書け ば よい 。 
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3.5.2 サイ コロ に 変換 

関数 RND で 得 ら れる の は 0S ミ z く 1 の 男 囲 の 一 様 乱数 だ け で ある が , 
これ を 適当 に 変換 する こと に より , 上 記 以 外 の 分 布 に 従う 乱数 を 作る こ 
と が で きる 。 

た と えば , これ を 「 1 か ら 6 の 目 が 等 確率 で 出る サイ コロ ] の 目 の 実 
現 値 に 換算 する に は , 

0 ミ z く 1/6 な ら ば 

1/6sz く 2/6 な ら ば 円 


5/6 ミ z く 1 な ら ば 国 
と すれ ば よい で あろ う ) 。BASIC で この よう な 変換 を 行なう に は , 次 の よ 
うに 書く と 簡単 で よい 。 
Em 8= テ IT(6*U) 十 1 
乱数 の 発生 と 変換 を 兼ね て 次 の よう に 書く こと が で きる 。 
ET 8=INT(6*RND ) 十 1 
[使用 例 ] サイ コロ を 2 回 ずつ 100 組 ( 計 200 回) 振っ て , 2 回 の 目 
数 の 和 が ちょ うど 7 に な る 組 数 を 数 えて みる 。 
10 RANDOMIZE 


20 LET RN=O カウ ンタ ー の リセ ッ ト 
30 FOR K=1 TO 100 

4 0 ET 8S1= ニ INT(6*RND ) 二 1 サイ コロ を 
5 0 EET 82=INT(6*RND ) 二 1 2 回 振る 

6 0 TE 81+S2<>7 THEN 80 和 キ 7 ? 
7.0 LE 距 N=RN 十 1 カウ ント ・ ア ッ プ 


80 NEXT K 
90 PRIRNT RTRN: 
100 END 


演習 1 女の子 が 3 人 続け て 生ま れる 確率 を , 数 値 実 験 に よっ て 調べ 
る プロ グラ ム を 作れ 。 
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3.5.3 関数 RND の 応用 問題 
1 (算数 練習 機 ) 
0 か ら 9 ま て で の 乱数 を 二 つ 作 り (I, と する ), 
I の 値 プラ ス 印 」 の 値 イコ ー ル 印 
を 表示 し , 生徒 に 答 を 入力 させ (それ を KK と する )), 
I 二 =K な ら ば O 印 
I 十 チチ K な ら ば X 印 
を 出力 する プロ グラ ム を 作れ 。 
(ヒン ト ) 0 か ら 9 ま て で の 乱数 を 作る に は 
INT(10*RND ) 
と すれ ば よい 。 
〔 拡 張 ) 上 記 の プロ グラ ム に 少し 手 を 加え れ ば , 次 の よう な 諸 機能 を 
付加 する こと が で きる 。 
1 ) 最初 に 生徒 が 1 4 の キー を 押し , 
1 一 足し 算 。 2 一 引 き 算 3 つ 掛 け 算 4 一 割り 算 
の 練習 が で きる よう に する 。 
(ヒン ト ) ON 文 で 分 岐 き せる と よい 。 
ii ) 10 問 や ら せ て , 点数 (正答 数 ) を 出力 する 。 
損 ) 1 と 」J の 桁 数 を 指定 で きる よう に する (掛け 算 や 割り 算 の 練習 の 
際 に は , 1 の 桁 数 と 』 の 桁 数 を 別個 に 指定 で きる こと が 望ま ほしい)、。 
iv ) 3.1 節 の プロ グラ ム を 組み 合わ せる こと に より , 
最大 公約 数 と 最小 公 倍数 
分 数 の 計算 
時 分 秒 の 計算 
丸め の 方 法 
な ど を させ る 。 
Y ) 誤 答 の 場合 、 も う 一 度 同じ 問題 を や ら せ , それ で も だ め な ら ば 正 
解 を 教え て や る 。 
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2 (いん ち き な サイ コロ ) 
1 ~ 6 の 目 の 出 る 割合 を 等 し くせ ず , た と えば 

目 の 数 1 2 3 ・ 4 5 6 

割 合 15% _ 10% 30% 10% 20% 15% 
に な る よう に する に は どう すれ ば よい か 。 
(ヒン ト ) 累積 分 布 関数 を 作っ て 逆 補 間 す る , と いう の が 最も 一 般 的 
な 方 法 で ある 。 た と えば , 上 の 例 で は , まず 

目 の 数 1 以下 2 以下 3 以下 4 以下 5 以下 6 以下 

割 合 15% 25% 55% 65% 85% 100% 
と いう 表 を 作っ て コン ピュ ー タ ー に 記憶 させ, 0 と 1 の 間 の 一 様 乱 数 z 
の 値 が 

0.15 以 下 な ら ば el 

上 記 以 外 で 0.25 以 下 な ら ば 上] 

上 記 以 外 で 0.55 以 下 な ら ば 


と すれ ば よい 。 た だ し , 上 の 例 の よう に ご く 単 純 な 比率 の 場合 に は , 次 
の よう に し て も よい (この 方 が 速い )。 
V=INT(20*RRND ) 
0, 1, 2 な ら ば 
3, 4 な ら ば 
V の 値 が 5, 6, 7, 8, 9, 10 な ら ば 
11,、 12 な ら ば 
13, 14,、 15、 16 な ら ば 
17,。 18、19 な ら ば 
具体 的 に は , 配列 M を 用 意 し , 
M(0)= ニ 1  M(1)=1 M( 2 )=1 M( 3 ) 
M(4 )=2 M(5)=3 M(6 )=3 
と いう ぐあい に セッ ト し て お いて , M(V ) を 目 の 数 に する わけ で ある 。 


還 円 円 回 














国 


2 
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3.5.4 正 規 乱 数 

平均 値 0 分散 1 の 正規 分 布 Y ( 0, 1 ) に 従う 乱数 ゅ を 作る に は ,「0 
ミ ァ z く 1 の 一 様 乱数 z を 12 箇 加え て 6 を 引く 」 と いう 方 法 

ya 十 2o 十 … 十 ns2 一 6 

が 最も 簡単 で ある 。 ッ が (近似 的 に ) (0,1 ) に 従う こと は , 中 心 極 
限定 理 に よる 。 

【 プ ログ ラム 例 〕 上記 の 方 法 て 正規 乱数 を 100 個 作 り 、 そ の ヒス ト グ 
ラム を 描く プロ グラ ム を 作っ て みよ う 。 ヒ スト グラム の 範囲 と 間隔 は 
ー3 ミ ッ < 十 3。 ガッ テ 0.5 と する 。 

10 DIM H(12) 


20 RANDOMIZ% 選 か きま ぜ る 
30 FEOR エ =1 TO 12 

4 0 LET H(T)=0 カウ ンタ ー を クリ ア 
50 NEXT 1 

60 FEOR K=1 TO 100 100 回 反復 
7 0 LT マニ ー6 

80 FOR ゴ =1 TO 12 正規 乱数 を 作る 
9 0 LT Y マ = ニ Y 十 RND 

100 NEXT J 

110 中 エニ ITNT( 2*Y 十 6 ) 

120 TE 1[ ぐ 1 THEN 150 

130 IE エ >12 THEN 150 

140 BT H(T)=H(T ) 十 1 


150 NEXT K 
160 FOR エ =] TO 12 


170 IF H(+)=0 THEN 210 開 
180 FOR エ =1 rmO H(r) 隊 
190 PRINT "* リ : 

200 NEXT L 

210 PRINT 


る Z20 NEXT 1 
2Z30 ERND 
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3.5.5 指 数 乱 数 
確率 密度 関数 4e-“ の 指数 分 布 (その 平均 値 は 分散 は 4? で あ 
る ) に 従う 乱数 を 作る に は , 区 間 [ 0 , 1] 上 の 一 様 乱 数 を 

ィ デ テー ん log zz 
で 変換 すれ ば よい 。BASIC で は , これ を 利用 者 定義 関数 の 形 

DEF FNE=-M*LOG(RRND) 
に し て 用 いる と 便利 で ある (た だ し , M= テ ナー( 平 均 値 ) ) 。 
[用 途 ) 単位 時 間 内 に 平均 4 人 が ラン ダム に 窓口 に 到着 する と き , そ 
の 到着 間隔 ( 1 人 が 来 て か ら 次 の 人 が 来る まで の 時 間 ) は 上 記 の 分 布 に 
従う 。 そ の た め , これ は 待ち 行列 の シミ ュ レ ーション に よく 用 いら れる 。 


3.5.6 Poisson 乱数 
単位 時 間 内 に 平均 4 人 が ラン ダム に 窓口 に 到着 する と き , 単位 時 間 内 
に 実際 に 到着 する 人 数 ヵ の 分 布 は 平均 値 え の Poisson 分 布 
P(z )=e* 
に 従う 。 こ の よう な 乱数 ヵ を 作る に は , 普通 ,、 次 の よう に する 。 
区 間 [0、11] 上 の 一 様 乱 数 4n、 2s。 ws,。 … を 作る 。 
それ を 順に 掛け て ゆく 。 ni、 2 が iz, 21722773, 
積 が e^ より 小 さく な っ た ら 止 め る 。 
その 直前 まで の 箇 数 を ヵ と する 。 す な わ ち 
2 の 2 且 6 の 7> 12 "| zi 
解説) これ は , 3.5.5 節 の 方 法 で 指数 乱数 (いい か えれ ば 「 到 着 間 
隔 ]) xi, *2, … を 発生 きせ て , その 和 が 1 (すなわち 単位 時 間 ) に な 
る まで の 人 数 ヵ を 数 える の と 本 質 的 に 同じ こと で , その 「log の 和 」 を 
と る か わり に 「 積 の 1og] を 用 いた こと に 相当 する 。 
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3.5.7 待ち 行列 の シミ ュ レ ーション 
サー ビス 窓口 が 一 つ あ っ て , 

客 の 到着 する 時 間 間 隔 は 指数 分 布 ( 母 数 え ) に 従う 

サー ビス の 所 要 時 間 は 正規 分 布 WY (の ) に 従う 
と いう 場合 の 数 値 実験 を 行なっ て , 待ち 行列 の 状態 を 調べ て みよ う )。 
〔 プ ログ ラム の 設計 ) 各種 の 方 式 が ある が , こ こ で は 初心 者 の た め に . 
記憶 場所 を 十分 に 使っ て , な る べく 明快 に 書く こと に する 。 主 な 変数 は 


人 A, 7 番目 の 客 の 到着 時 刻 X 到着 間隔 
T」 番目 の 客 の 終了 時 刻 S サー ビス 所 要 時 間 
O  。 サー ビス 開始 時 刻 Q 行列 の 長き 


7 「 次 に 到着 する 客 」 の 番号 7 「 処 理 中 の 客 」 の 番号 
準備 前 ペー ジ の 方 法 に より 指数 乱数 X を 順に 作っ て , 到着 時 刻 を 
Ai=0 Ai=A 十 双 (7 ニテ 1。 2,。 …。 ァ ター1 ) 
に より 計算 し て 配列 A に 入れ ,「 最 初 の 客 が 到着 し た 状態 | 
1 7=0  Q=0 
を 初期 値 に し て 「 到 着 」 に 進む 。 
到着 時 の 処理 新 ? 三 ? 十 1 と し , 
Q ニ 0 な ら ば , Q ニ 1, 0=A:-」 に し て 「 サ ービス 開始 」 に 進む 。 
の 
サー ビス 開始 時 の 処理 新 7 ニ ァ 十 1 と し , 正規 乱数 S を 作り , 
T エ ,=0+S 
に より , サー ビス 終了 時 点 を 算定 し て 「 時 計 」 に 進む 。 
サー ビス 終了 時 の 処理 今 の 客 の 待ち 時 間 一 A,, 現時 点 に お け 
る 待ち 行列 の 長き さ Q な ど を 出力 し , Q か ら 1 を 引き , 
Q テ 0 な ら ば 「 到 着 ] に 進む 。 
0 
時 計 
Ai: ミ T, な ら ば 「 到 着 」 に 進む 。 
の Ri ta 
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[プロ グラ ム 例 〕 


10 
20 
30 
4 0 
5 0 
6 0 
7.0 
8 0 
9 0 
100 
ll 箇 時 6) 
120 
130 
140 
150 
160 
170 
190 
190 
200 
210 
る 20 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 


DIM A(100) ,T(100) 
ET N=100 
PRINT LAMBDA,MU,STGMA= リ ": 
INPUT 芽 ,C1,0O2 
ET A(1 )=O0O 
FOR エ = ニ 1 TO Nー1 
LT メニ ーLOG(RND ) ノエ 
ET A( エ 二 ]1)=A(1)+ 
NEXT 1 


lI 
〇 の ピロ 


T 
DEFT J 
Q 


REM *※ ネ ※ 床 TOUTYAKU * ネ ネネ 

L 思 中 エニ エ 二 1 

TE 1I>N THEN 420 

TE Q<=0 THEN 190 

L 思 T Q ニ Q 十 1 

GOTO 260 時 計 へ 
ET Q=1 ュ 

ET 0O= ニ A( エ ー1 ) 

REM  ** ネ * ネ SEBRVTOB KATSBT * ネ キネ キネ 

LET ゴー ニ J 二 1 

GOSUB 340 正規 乱数 を 作る 
L 包 中 叩 ( 了 ) =0+8 

REM ネ ※ ネ ※ ネ ネネ TOKBT] ネネ キネ 

LE A(1T) く =T( 了 ) THEN 140 到着 へ 
REM *** SERVTIOCEBE SBYURYOU ネネ ポキ ネ 
PRINT A(J 了 ) ,T( 了 ) ,T( ゴ ) 一 A( 了 ) ,Q 
LET Q= ニ Qー1 

TE Q< く =0 THEN 140 到着 へ 
LET 0O=T(J 了 ) 

GOTO 220 サー ビス 開始 へ 
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33?50 
340 
350 
360 
370 
380 
390 
400 
410 
420 


演習 
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REM ネネ TKT RANSUU * ネ ※*※※* ネ 
攻 包 中 マテ ー6 
FEOR K=] TO 12 

世 中 Y マ = ニ Y 十 RND 
NEXT K 
氏 T 8 ニ O1 十 CO2*Y が (CiC3) に 換算 
TER 8>=O0O THEN 410 
廿 包 叩 8=0 
RETURRN 
END 


到 着 
7 三 7 十 1 Q=Q+1 


1 上 記 の プロ グラ ム を 改造 し て , 平均 待ち 時 間 (エッ ーA, の 平 
均 値 ) を 計算 で きる よう に せよ 。 


4 数 値 計 算 


4.] 近似 式 
コン ピュ ー タ ー て 関数 を 扱う 方 法 と し て は 
近似 式 で 計算 する 
数 表 を 補間 し て 用 いる 
の 二 つ が 基本 的 で ある 。 本 節 で は 前 者 に つい て 簡単 に 説明 する 。 


4.1.1 Taylor 級数 
周知 の と お り , 解析 関数 は その 収 東 円 内 で Taylor 級数 


(<+ め ニア (の + 若 7(<)+5 十 二 ( ) 寺 ・ + 攻 ーW(g)+ 
に よっ て 表す こと が で きる 。 上 式 で 特に 2 三 0 と し た 形 
了 ( ヵ ) ニ ア (0) + 征 (0) + 和 7(0 0 キー ト 生 が の (0)+ 


は Maclaurin 級数 と も 呼ば れ て いる 





( 例 ) に 
=1+ 三 キー キー 
て 3 『 ピ の アァ 2 を +1 
SI メデ イーsT「 ーー FDL 
前 Em 
cos Yー 1 21「41 十 ( 一 1 ) (2 が ! 


コン ピュ ー タ ー で は 無限 項 の 計算 は で き な い か ら , これ を 有限 項 で 打 
ち 切 っ て 計算 する こと に な る が , 上 記 の 三 つ の 級数 は 収束 が 非常 に 速い 
の で , た と えば | xls 1 の 範囲 で 用 いる 場合 、e で 10 項 , sin *,coS 
で 5 項 も と れ ば 誤差 を 10-6 以下 に する こと が で きる 。 
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4.1.2 近似 式 の 改良 

前 ペー ジ に 例示 し た よう な , 非常 に 収束 の 速い 級数 も ある が , 一 方 に 
は 収束 が 非常 に 遅い 級数 が ある 。 


( 例 ) 9 211 
ーー ー1) を えー 」 
arctan * ニ マテ 3「 十 ( 一 1) 2&+TT「 
王后 8 
log(1 十 *) ニ ャ 2「3 十 ( 一 1) ん 年 


この よう な 級数 で 、 た と えば ァ *= テ 1 の 付近 で 誤差 10- 以下 に な る よう 
に する に は , 50 万 項 ぐ で らい と ら な けれ ば な ら な い 。 コ ンピュータ ー が い 
か に 速い と いっ て も , これ で は 実用 に 向 か な い 。 そ の よう な 場合 
加速 手法 ( 補 外 法 ) を 併用 する 
近似 式 を 改良 する 
の 二 つ の 方 法 が ある 。 前 者 は , だ いた い ど ん な 関数 に も 容易 に 適用 で き 
る の で , 自作 の プロ グラ ム て 無限 級数 の 計算 を する 場合 な ど に 適し て い 
る 。 それに 対し 後者 は , 高度 な 技術 と 経験 を 必要 と し , 個々 の 関数 の 特 
性 を 考慮 し て 行なう 必要 が ある の で , 専門 家 向 き で ある が , うま く 作 ら 
れ た 近似 式 の 計算 時 間 は , 前 者 の 計算 時 間 に く ら べ て 断然 短い 。 
よく 使わ れる 関数 に つい て は , 既に 詳し く 研 究 さ れ , 近似 公式 集 が 作 
られ て いる (次 ペー ジ の 文献 リス ト 参照 |、 ま た , その プロ グラ ム が 作ら 
れ て , 組み 込み 関数 と し て , ある い は 技術 計算 ライ プラ リー と し て 提供 
され て いる か ら , 調べ て 活用 する と よい 。 参 考 ま で に , この よう な 近似 
式 の 二 , 三 の 例 を 紹介 する 。 
常用 対数 の 簡単 な 近似 式 の 一 例 (Hastings の 公式 ) 


ァ ー 1 ァ 一 1 \3 
logio ro ( リト e( 生 ) 








c」 三 0.86304  c。=0.3645 


適用 凌 囲 Ti ャ ミ 10 最大 誤差 約 5X10* 
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tan の 近似 式 の 一 例 (永坂 の 公式 ) 


tan ャ ミ (0.13451446+ 


2.6252949 ) 
4 え 


4 .0333293 一 >* 
適用 範 胃 一 1 ミ ャ ミ 1 最大 誤差 2.5X10-? 
誤差 関数 の 近似 式 の 一 例 (Hastings の 公式 ) 


eraen- 較 
Y ァ 0 ーー (1 十 iy 十 gz 十 2s%9 十 24Y)4 


| 三 0.278393 gs 三 0.000972 
gz 三 0.230389 g』 三 0.078108 
適用 男 胃 0 ミ ャ * く oo 最大 誤差 5 X10! 
Bessel 関数 の 近似 式 の 一 例 (Allen の 公式 ) 





resana(yra( リ ie 


の 三 1 の デー2.2499997 2。 三 1.2656208 
gs デー0.3163866 4, 三 0.0444479 
gs デー0.0039444 ge 三 0.0002100 
適用 範 胃 一 5=x 3 最大 誤差 10~? 


文献 ) 各種 の 関数 の 近似 式 が 次 の 文献 に ある 。 

1) 山内 宇野, 一 松 ( 編 ) : 電子 計算 機 の た め の 数 値 計算 法 皿 、 培風館 
(1972) 

2) 一 松 信 : 初等 関数 の 数 値 計算 、 教 育 出版 (1974 ) 

3) 一 松 信 : 近 似 式 , 竹内 書店 (初版 1963, 改訂 版 1972 ) 

4) ヘイ ステ ィング ス ( 竹 内 訳 ) : 電子 計算 機 の た め の 近 似 計 算法 。 東京 図 
書 (1973) 

5) J.F. Hart : Co が 4fe7 2 が 7oY27277077, Wiley (1968) 

6) Y. L. Luke: 77e secZ2/ 2c7707S 22 の 77e77 2 の の 7 の XY772272075, 1 1I. 
Academic Press (1969 ) 

7) 磯田 和男 、 大 野 豊 ( 編 ) : 数 値 計算 ハン ドブ ッ ク , オー ム 社 (1971) 
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4.1.3 応 用 問 
1 (有限 Taylor 級数 に よる sin の 近似 ) 
119 ペー ジ に 示し た sin の 展開 式 の 
第 1 項 の み に よ る 近似 式 方 (x) ニ ャ 


3 
第 2 項 ま で に よる 近似 式 な (*) ニ ォ ー ニ 


5 


9 
+150 


第 3 項 ま で に よる 近似 式 な ( 々 ) ニ ャ ーー 
の グラ フ を 描き , sinx の グラ フ と 比較 せよ 。 
(ヒン ト ) プロ ッ ト す る 男 囲 は 0 ミ xS<5, 間隔 は = ニ 0.1 と すれ ば 
分 で あろ う 。 数 値 を 出力 し て 方 眼 紙 に プロ ッ ト し て も よい が , 3.3.2 
節 の プロ グラ ム を 利用 し て も よい 。 

2 (誤差 曲線 ) 

120 ペー ジ の 公式 で logio * の 値 を 計算 する プロ グラ ム を 作り 、, 

0.3srs3.0 (間隔 0.1) 

の 範 胃 で その 誤差 を 計算 し て グラ フ を 描い て みよ う (BASIC の 組み 込 
み 関 数 LOG(X) の 値 を 信用 する こと に する 。 た だ し それ は 自然 対数 の 


3 (巧妙 な 近似 式 と 平凡 な 計算 式 の 比較 ) 
121 ペー ジ の 永坂 の 公式 の プロ グラ ム を 作り , 他 の 方 法 。 た と えば 
tan の 王 sin の /cos の 


ーー 1 sa」 2 5」 7 2 
tan の の 9 十 3 の + 天 9 +5s9 


と 精度 お よび 計算 時 間 を 比較 せよ 。 

(ヒン ト ) 精度 は 9 一 0 か ら 9 王 Z/4 まで 9 ニニ ァ /40 間隔 (すなわち 
0' か ら 45' ま で 5" お き ) に 調べ れ ば よい で あろ う 。 計 算 時 間 は 1 回 だ け 
の 実行 で は 時 間 が 短 す ぎ て うま く 計 測 で き な い の で , 
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FOR エ = ニ 1 TO 1000 
tan の の 計算 式 
NEXT T 
と いう よう に 多数 回 反復 させ て 計る と よい 。 
4 (誤差 関数 ) 
121 ペー ジ の 近似 式 に より 誤差 関数 を 計算 する サブ プ ル ー チ ン を 作れ 。 
5 (0 次 の Bessel 関数 ) 
121 ペー ジ の 近似 式 に より , ん (*) を 計算 する サブ ルー チン を 作れ 。 
6 (ガン マ 関 数 ) 
ガン マ で 関数 ア (x) の 値 を 計算 する に は , まず , 公式 
7(x 二 1) ティ が (r) 
を くり か え し 使っ て 引数 を 1 ミ x ミ 2 の 男 囲 に 移し , Hastings の 近似 式 
(31 番 ) 
ア (1 二 *) ニ 1 十 m ァ 十 22“ 十 3Y9 十 24Y 十 5? 
gg デー00.5748646 6。 三 0.9512363 
gs デー0.6998588 g。』 三 0.4245549 
gs デー0.1010678 

を 用 いる の が 比較 的 簡単 で ある 。 

( 例 ) アア (3.85) を 計算 する に は , まず 
(3.85) ニ テア (2.85 十 1)= テ 2.85(2.85) 
(2.85)= ア (1.85 十 1)= ニ 1.857(1.85) 

と 変形 する 。 こ れ で 引数 が 1 と 2 の 間 に 入 っ た か ら , * テ 0.85 と し て 上 

記 の 近似 式 に 入れ て (1 十 0.85) の 値 を 計算 し 、 その 結果 に 1.85 と 2.85 

を 掛け れ ば よい 。 

この よう な 方 法 で アア ( ヶ ) の 値 を 計算 する サブルーチン を 作れ 。 
7 (ベー タ 関 数 ) 
上 で 作っ た ガン マ 関 数 の プロ グラ ム を 利用 し て 万 ( ヵ , 4) の 値 を 計算 


_ が ( ヵ )7(2) 


ーー 子 ・ 作 キ ニニ 
する サ プ ル ー チ ン を 作れ 。 公 式 は , ( ヵ , 7) 了 T⑦+g) ・* 
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4.2 補 間 


近似 式 を 作れ ば , 計算 時 間 が 短く , 取り 扱い に も 便利 で ある が , 近似 

式 の 作成 自体 に か な り の 手間 が か か る 。 そ れ に 対し , 数 表 を 記憶 させ て 
補間 し て 用 いる と , 処理 時 間 の 点 で は 多少 不利 に な る が , と に か く 簡 単 
で , どん な 関数 で も 近似 で きる の て 便利 で ある 。 数 表 を 記 層 きせ る と い 
っ て も , コン ピュ ー タ ー の 場合 は 必要 に 応じ て 高 次 の 補間 公式 を 使う こ 
と が で きる か ら 、 筆算 用 の 数 表 よ り も 粗い (独立 変数 の 間隔 の 広い ) も 
の で よく , 普通 の 目的 に は 数 十 点 (変動 の 多い 関数 で も 数 百 点 ) の デー 
クタ で 十分 で ある 。 数 表 に よる 方 法 は , いわ ゆる 任意 関数 (設計 者 が フリ 
ー ハ ンド で 描い た 曲線 、 実 験 的 に 得 ら れ た 特性 曲線 な ど ) の 表現 に 特に 
適し て お り , よく 用 いら れ て いる 。 


4.2.1 表 の 引き か た 
関数 ッ ニ ア ( x ) の 数 表 を 








イ 0 Yo 
イ ュ ず ュ 
え 2 2 
イ ヵ 7) 0 え 」 "の Yi eee ア m 


と する 。 引数 (独立 変数 の 値 ) が 
与え られ た と き , まず , z, ミ ァ く ヶ 4。 ュ に な る よう な / を さがす 必要 が あ 
る 。 そ れ に は 次 の よう に すれ ば よい 。 
分 点 *, が 等 間隔 の 場合 分 点 間隔 を ヵ と すれ ば (すなわち 
ィ :ー テ に ュ 十 ん (7? 三 1。 2, …, z) 
と すれ ば ), 7 は 次 の よう に し て 求め られ る 。 
7 =「(xー*。 )/ ヵ の 整数 部 分 」 
BASIC で 書け ば 次 の よう に な る 。 
ET エニ INT( (メーX(O0) ) /H) 


4.2 補 間 125 
不 等 間 隔 の 場合 最も 簡単 な 方 法 は 、 7 0 1, 2, … の 順に 
を : 人 当 マル ょ 1 

か 否 か を 調べ る (実際 に は 右 の 不等式 だ け を 調べ れ ば 十分 ) と いう 方 法 
で ある が , も っ と 能率 の よい 方 法 と し て , 2 分 法 と いう の が ある 。 こ れ 
は , まず 引数 を 表 の 中 央 の 値 (zz また は rys ) と 比較 し て 「 表 の 上 
半分 に ある か 下 半 分 に ある か 」 を 判定 し , 次 に その 上 半分 また は 下 半 分 
を また 上 下 に 2 分 し て 、 そ の どちら に ある か を 調べ る , … と いう 方 法 で 
ある 。 

〔 流 れ 図 〕 






「* を 含む 部 分 」 
の 下限 が / で , 
上 限 が ヶ , 中 央 
が 7 で ある 。 


【 プ ログ ラム 例 〕 (前 後 の 処 理 は 省略 ) 
200 REM 一 一 NTBUNHOU 一 一 
210 呈 理 中 正三 1 

220 LET R=N 

230 LET M=INT(( エ LR)/2) 
240 IE X(M) く < THEN 270 
250 LET R=M 
260 GOTO 280 
270 LET エーM 
280 TE R- エ >1 THEN 230 ー 
290 REM 一 一 ーーーーー EXT〒 一 一 ーーー 一 
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4.2.2 線 形 補 間 

2 点 。 rm1 に お ける 関数 値 。 w.」 を 1 次 式 で 補間 する の が 線形 
補間 で ある 。 点々 に お ける 関数 値 は 
次 の よう に (近似 ) 計算 で きる 。 


ュー 7 ( 
パ ュ ュー イ / 


ッッ, 十 メー ア / 





また 次 の よう に 表す こと も で きる 。 


y 三 アロ ュー ルー 4/ ツ 4 ュー イ な 1 
4 ォ ュ ー イ / イ ォ ュー イ / 





4.2.3 Lagrangce 補間 


一 般 に 、 好 十 1 筒 の 点 2%。 mm、…。 rw に お ける 関数 値 。 yi、… 
y が 与え られ た と き 。, 
ア (,) テ y ( 7 三 0, 1 敵 me 


・ 77 ) 
と な る よう な 刀 次 多項式 を 作っ て 補間 を 行なう や りか た を Lagrange 補 
間 と いう 。 こ の よう な 多項式 は 、 次 の よう に し て 作る こと が で きる 。 

ア (*) テ wAo(*) 十 jm Mi(*) キ … 二 yaM(r) 
だ た だ し 

ィ ) ニ 衣 - ば ニテ 

0 の 
この アア (xr) を Lagrange 補間 多項式 と いう 。 
( 例 ) 娘 =2 の 場合 








2 
_ (テー ぇ * )( ャ ー ォ ) 
Ao (*) ニ ーーーーーーーーーーー ーー 
(一 *i)( ぇ 0 一 > ) 

ず ュ 
Au (*) ニ ー ば ー3o (メー Yo 

(*」 一 xXo)(*」ー ャ > ) 
_ (*ー ぇ o)( ャ ー テ ) 

2 (xs 一 xo)( xs 一 ) 0 パ ュ え 2 


ア (x)= テ y ル Ao(*) 十 yi (と ) 十 ys 2 () 


T5 わ 59 ら 595 ら 9 ゅ 9:hb ッ {ERRRREEEEEREREEEREEEEEEEEEREEEEEEEEIE 還 間 EEEREEEREEEEEEEEE 還 還 還 EEEIIIE 
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〔 解 説 ) ここ に 用 いた 関数 Wi(x) は 
分 点 x, に お ける 値 は 1 Ai(x:) ニ 1 
他 の 分 点 xy に お ける 値 は 0 が (xy)= 0 (7 チ 7 ) 

と いう 性 質 を も つ 。 実際 。 Mi:(z) の 定義 式 に x=x, を 代入 すれ ば , すべ 
て の 因子 が 約 分 で き て Ai(x,)= 1 に な り , ァ ニ ァ ,(7 チ 7) を 代入 すれ ば , 
分 子 に (*ー* ヵ ) と いう 因子 が ある か ら , Ai(*』) ニ 0 と な る 。 こ の 人 性質 
を 利用 し て 「 点 x, に お ける 関数 値 だ け を 合わ せる ( 他 の 分 点 に は 影響 を 
与え ず に )」 と いう こと が で きる わけ で ある 。 

〔 プ ログ ラム 例 〕 (前 後 の 処理 は 省略 ) 

100 LET P=0 

110 FOR 1=0 TO M 

120  。 LET N=1 

130 FOR J=0 TO M 

140 TFPF 1 エ =J THEN 160 

150 LET N=N*(-ーX(J 了 ) )/ ノ (XX(T) 一 X(~ 了 ) ) 
160 NEXT 了 

170 LEBT P= ニ P+Y(T1)*R 

180 NEXT 1 

注意 〕】 いま 述べ た 方 法 を 用 いれ ば 容易 に 高 次 の 補間 を 行なう こと が 
で きる が , 次 数 を 上 げ れ ば 常に 精度 が 良く な る と は 限ら ず , 次 数 を 上 げ 
すぎ る と か えっ て 誤差 が 大 きく な る 。 そ の 一 つの 理由 は , デー タ の 誤差 
が 高 次 補間 に よっ て 拡大 され る た めで ある 。 精 密 に 計算 され た 数 表 の 補 
間 に は 高 次 の 式 を 用 いて も よい が , 実験 デー タ の 補間 に は 高 次 の 式 を 使 
わな い 方 が よい 。 な お 、 関 数 の 性質 と 分 点 の と りか た に よっ て は , チー 
タ の 誤差 が 0 で も , 次 数 を 上 げ る と 誤差 が 無限 に 増大 する こと が ある 。 
( 例 ) 関数 /(x)= 1/(1 十 *?) を -5 ミ xS ミ 5 の 男 囲 で , 等 間隔 分 点 に 
よっ て 補間 する と , 分 点数 を 増す に 従っ て 誤差 は 限り な く 増 大 する (Runge 
の 現象 )。 証 明 と 数 値 例 は 次 の 文献 を 見 よ 。 

(文献) 

1) ウェ ンド ロフ (戸川 訳 ) : 理論 数 値 解析 、 サイ エン ス 社 (1973) 

2) 森 正武 : 曲 線 と 曲面 教育 出版 (1974) 
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4.2.4 応 用 問 題 
1 (等 間隔 の 数 表 の 補間 ) 
分 点 が 等 間隔 な 数 表 の 線形 補間 を 行なう プロ グラ ム を 作れ 。 
(ヒン ト ) 124 ペー ジ に 要領 が 書い て ある 。 数 表 に 関す る デー タ 
え 0 ん 7 
Yo J 2 
は DATA 文 で 書い て READ 文 で 入力 し , 引数 * は INPUT 文 に より 実 
行 時 点 に 入力 で きる よう に する と よい 。 ァ を 含む 区 間 を 知る に は , 124 
ペー ジ の 最後 の 式 を 用 いれ ば よい 。 補間 公 式 は , 4.2. 2 節 の 2 番目 の 式 
が 簡単 で よい 。 
2  ( 不 等 間 隔 の 数 表 の 補間 ) 
分 点 が 不 等 間 隔 の 数 表 の 線形 補間 を 行なう プロ グラ ム を 作れ 。 
(ヒン ト ) 125 ペ ー ジ の プロ グラ ム に 。, 
数 表 の 読み 込み (+,、 ッ と も に 必要 ) 
補間 の 計算 
知 果 の 出力 
の プロ グラ ム を 書き 加え れ ば よい 。 
3 (Lagrange 補間 ) 
Lagrange 補間 の プロ グラ ム を 作れ 。 
(ヒン ト ) 要する に 127 ペー ジ の プロ グラ ム に 入出 力 の 部 分 を 書き 加 
えれ ば よい の で ある が , 数 表 の 一 部 分 だ け 
イム ぞ 太 1 ーー て 粘 放 
ツメ YY 科 1 パーツ 大 放 
を 用 いて 計算 で きる よう に する に は , 127 ペー ジ の プロ グラ ム を 少し 改 
造 す る 必要 が ある 。 ま た , 数 表 の どの 部 分 を 用 いる か を 自動 的 に 決め る 
よう に する に は , か な り 複雑 な 処理 を 要する (* が 数 表 の 両端 に 近い ぃ 場 
合 が 問題 )。 こ うい う プ ログ ラム は , あま り 一 般 化 し すぎ る と , 複雑 で 使 
い に く いも の に な っ て し まう 。 自分 で 作る の な ら , 個々 の 仕事 に 合わ せ 
て , な る べく 簡単 な プロ グラ ム に する の が 賢明 で ある 。 
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4 (三角 関数 表 を 作る ) 
よく 知ら れ て いる 値 
沈 0 30! 45" 60* 90* 
sinx 0 1/2 72/2 3/72 1 
を 補間 し て , 三角 関数 の 数 表 (0' か ら 90'* ま で 5' 間隔 ) を 作り , 厳密 な 
値 と 比較 せよ 。 
5 (ガン マ 関 数 表 を 作る ) 
ガン マ 関 数 は , 普通 


ne の 


で 定義 きれ る が , 

(7z 十 1) テ z! 
と いう 性 質 が あり , 要する に 「 ヵ と 7z! の 関係 を グラ フ 用 紙 に プロ ッ ト 
し て , その 点 を 連続 的 に 滑ら ちら か に つない だ も の |] で ある か ら , 

ァ ー 十 1 1 2 3 4 5 6 / 

7! 1 1 2 6 24 120 720 
を 補間 すれ ば , アア (x) の 近似 値 を 得る こと が で きる で あろ う 。 こ の 方 法 
に より , x テ 1 か ら ァ ー2 まで, 0.1 間隔 の ンマ 関数 表 を 作り , 厳密 
な 値 (小数 点 以 下 5 桁 ま で を 下 表 に 示す ) と 比較 せよ 。 








bd (を ) レッ (2 

1.0 1.00000 5 0.88623 
中 | 0.95135 1.6 0.89352 
1.2 0.91817 4 0.90864 
1.3 0.89747 1.8 0.93138 


1.4 0.88726 1.9 0.96177 


(ヒン ト ) 次 数 を 上 げす ぎる と 失敗 する 。 さ り と て 低 次 の 補間 で 良い 
精度 を 望む の は 無理 で ある 。 よ り 良 い 結果 を 得る に は ャ 1, 2 3, 4 
に お ける 値 を 用 いて 2 ミ ャ S ミ 3 の 範囲 の 値 を 求め 、7 ア (*) ニ ア (* 十 1)/* 
と いう 公式 で 1 ミ x ミ 2 の 値 に 変換 する の が 一 案 で あろ う )。 
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4.3 数 値 積 分 


定 積 分 S = 7 の) の 値 を 近似 計算 する 方法 に つい て 説明 する 。 
各種 の 公式 が ある が , 利用 者 の 立場 か ら は , 利用 条件 を 
し て 与え られ て いる 場合 
ア ( ヶ ) が 数 式 ( ま た は プロ グラ ム ) と し て 与え られ て いる 場合 
に 分 け て 、 それぞれ に 適し た 公式 を 覚え て おく と よい と 思う 。 


4.3.1 被 積分 関数 が 数 表 で 与え られ て いる 場合 

分 点 0。 1。 2。 の" に お ける 関 . アア 
数 値 yp、 yi、yz、…。y』 が 与え られ て 際 虹 
いる と する 。 分 点 xo、 *。 は 積分 の 下限 
@, 上 限 め に 一 致し て いる と する 。 

台形 公式 積分 値 $ を 吾 形 の 面積 の 
和 で 近似 する 公式 で ある 。 一般 形 は 


(ーー) )= テ る ( ター ュ 十 放 (テー ィ に 」 ) 
特に 分 点 が 等 間隔 (ティ に ュ 十 ん 7 三 1, 2, の 7 ) な ら ば 


< に ニュ が. =( や っ 1. 
に あみ 7 ょ 2 け / 





と な る 。 

Simpson の 公式 等 間隔 の 3 点 。 an。 ea> に お ける 関数 値 
Y2n zi Y2r2 を も と に , 被 積分 関数 を 2 次 式 で 近似 し て 積分 を 行 な 
う 。 こ の 区 間 に お ける 積分 値 は 


22 jr 十 4 』 : 
呈 46 う した キン ーー トー 


これ を 7 三 0 か ら 7 =ー ァ /2 まで 加え 合わ せれ ば ゞ の 近似 値 が 得 られ 
る (は 偶数 と する )。 

Newton-Cotes の 公式 これ は 上 記 の 公式 を 一 般 化 し た も の で 。 等 
間隔 の 十 1 点 に お ける 関数 値 タ 。 aim。 …。 ya を も と に , 被 
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積分 関数 を 次 式 で 近似 し て 積分 を 行なう 。 こ の 区 間 に お ける 計算 式 は , 
一 般 に 次 の 形 に 書け る 。 


7) み Co ツア 放 : 十 ど ュ 1 な 1 ーー 了 





7 


だ だ し 。 ん ー ィ カカ ー ル ro 係数 は 次 の よう に な る 。 


ヤヤ パシャ パャ パャ パシ vV シ V パ V パ パパ パパ パパ パパ ーーーーーーーーーーーーーーーーーーーーーーー ナ ーー バー 





7 C Co Ci Cs 3 の | Cs Ce 
2 6 1 4 1 (Simpson の 公式 ) 
3 8 1 3 3 1 

4 90 7 32 12 32 7 

5 288 19 75 50 50 75 19 

6 840 41 216 27 272 27 216 41 


[Simpson の 公式 の プロ グラ ム 例 ] 





公式 の 選び か た 

1) 分 点 間 隔 が 十分 に 細か けれ ば , 台形 公式 が 安全 確実 。 

2) 分 点 間隔 が 粗い 場合 は , 粗 さ に 応じ て 高 次 の 公式 を 使う 。 

3) 分 点 間隔 が 粗く て も 台形 公式 の 有利 な 場合 が ある 。 それは, 
解析 的 周期 関数 の 1 周期 上 の 積分 解析 関数 の 無限 積分 

4) 滑ら か で な い 関 数 に 高 次 の 公式 を 用 いる の は 無 意 味 。 
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4.3.2 被 積分 関数 値 を プロ グラ ム で 計算 で きる 場合 

この 場合 に は 分 点 位置 を 自由 に 選べ る の で , より 能率 の よい 計算 を 行 
な うこ と が で きる 。 合理 的 な 分 点 の と りか た と し て は , た と えば 次 の よ 
う な 方 法 が 考え られ る 。 

第 1 案 積分 区 間 の 中 央 付近 は 粗く , 両端 で は 細か く と る 。 


( 例 ) トーーーー 積分 区 間 一 一 ーーー 





| 
等 間隔 に する より も , 上 記 の よう に する 方 が , 補間 多 項 式 に よる 
近似 の 精度 が 良く な る こと が 知ら れ て いる 。 
第 2 案 粗い 分 割か ら 始め て , 分 割 を だ どん だ ん 細か くし て ゆ く 。 








( 例 ) 押上 日 +ー 1 
2 回目 ーーーーーーーーーーーーー ーーーーーーー+ 
3 回 目 ーーーーー*ーーー*ーーー*ーーーー*ーーーー ぐ ーーー 一 + 
4 回 目 ーー バー ペー*ー・ー*ー*ー*ー*ー= ーー<ー。 ーー+ 
(以下 同様 ) 
こう すれ ば , 必要 最小 限 の 分 点数 で 計算 する こと が で きそう で あ 
る 。 ま た あと て 述べ る 補 外 法 に よる 精度 向上 も 期待 で きる 。 
第 3 案 被 積 分 関数 の 性 質 を 調べ , 滑ら か な 部 分 で は 粗く , 変動 の 激 
し い 部 分 は 細か くす る 。 


( 例 ) 





第 1 案 を 具体 化し た の が Gauss 型 の 積分 公式 で , 次 ペー ジ に 挙げ る 
Legendre-Gauss の 公式 は その 代表 的 な も の で ある 。 

第 2 案 を 具体 化し た も の で は Romberg 法 が 有名 で ある 。 

第 3 案 を 自動 的 に 行なう 計算 法 は 「 適 応 型 公 式 |] と 呼ば れ , 近年 、 各 
種 の 僕 れ た 公式 が 開発 され て いる 。 
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Legendre-Gauss の 公式 。 積分 区 間 の 上 の Legendre 多項式 の 容 点 
を 分 点 に と っ た 公式 で ある 。 こ の よう に する と , z 箇 の 分 点 を 使用 する 
だ け で 2 ァ ヵ 一 1 次 まで の 多項式 の 厳密 (離散 化 誤差 0 ) な 積分 値 を 得る 
こと が で きる 。 この 公式 で 計算 する に は , 下記 の 表 か ら 分 点 位置 *」, 2, 
…。 を 算定 し . そこ に お ける 被 積分 関数 値 を 計算 し 、 表 の 係数 を 持 
け て 加え 合わ せ , 区 間 幅 を 掛け すれ ば よい 。 


7G) み =(8ー の る C7() 














2 _ g 十 め か ーー の 。 
だ た だ し 。%, ーー ラー 十 2 7 
分 点 番 号 ? 無 次 元 化し た 分 点 位置 係数 C: 
2 点 公式 1 ー ソ 71 / 3 1/ 2 
2 +y173 1 / 2 
3 点 公式 1 ー ソ 3/5 5 /18 
2 0 8 /18 
3 +3/5 5 /18 
4 点 公式 1 ー0.8611363116 0.173927422 
2 ー0.3399810436 0.326072577 
3 十 0.3399810436 0.326072577 
4 +0.8611363116 0.173927422 


(文献 ) Gauss 型 の 積分 公式 の 分 点 と 係数 の 詳し い 数 表 は 下記 1)、2) に 
ある 。 を その他 各種 の 公式 に つい て は 3) が 詳し い 。 
1) 山内 , 宇野, 一 松 : 電子 計算 機 の た め の 数 値 計算 法 皿 、 培風館 (1972 ) 
2) A.H.Stroud and D. Secrest : CZzzssZZ 7442 の 7272476 / の 77774/25, Prentice- 
Hall (1966) 
3) デー ビス , ラビ ノウ ィ ッ ツ ( 森 訳 ) : 計算 機 の た め の 数 値 積分 法 , 日 本 
コン ピュ ー タ 協会 (1981 ) 
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4.3.3 応 用 問 題 

1 (簡単 な テス ト 問 題 ) 

数 値 積 分 に より , 次 の 値 を 求め よ 。 


GO /ez (eg の 

(ヒン ト ) この よう な 問題 は 、 どの 公式 を 用 いて も 良い 結果 が 得 ら れ 
る 。 高 次 の 公式 を 使え ば , ( i) は 厳密 な 値 (丸め 誤差 の 範囲 内 で ) が 得 
られ , (ii ) に つい て も 粗い 分 割 で 十分 良い 精度 が 得 ら れる 。 厳 密 な 値 は 

( i) 1/4=0.25 

(ij) e-1=1.718281828 … 

( 近 ) /4=0.785398163 … 

2 (対数 表 を 作る ) 

周知 の と お り , 1/x の 不定 積分 は log * で , log 1= 0 で ある か ら , 1 
か ら ァ まで 1/r を 数 値 積分 する こと に よっ て logr (の 近似 値 ) を 求め 
る こと が で きる は ず で ある 。 こ の 方 法 に より , * ニ 1 か ら ァ ー2 ま で 。 
プ * テ 0.1 間隔 の 対数 表 を 作成 する プロ グラ ム を 作れ 。 

(ヒン ト ) 最初 , y(1) 三 0 か ら 出発 し て . 


y1.①=y1+/ー み 


y1.2 の =y1.10+/ デー 


を 計算 し て 出力 すれ ば よい 。 積 分 公式 は , まず 台形 公式 か Simpson の 
公式 の よう な 簡単 な も の で 試み て , 精度 が あま り 悪 いよ うな ら ば 高 次 の 
公式 に 切り 換え る 。 な お 上記 の よう に し て 得 ら れる の は 自然 対数 で あ 
る 。 常用 対数 表 を 作る に は , 上 で 得 ら れ た 値 を log。10 で 割れ ば よい 。 

3 (無限 区 間 の 積分 ) 


数 値 積分 に より / "の - デ の r の 値 を 計算 せよ 。 
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(ヒン ト ) 無限 区 間 の 積分 の た め に は , 専用 の 公式 (た と えば Lag- 
uerre-Gauss の 公式 な ど ) も ある が , そう いう 特別 な 公式 を 使わ な く て 
も , 被 積 分 関数 の 値 が 十分 に 小さ きく な る まで と っ た 有限 区 間 の 積分 で 近 
似 し て も , か な り 良 い 精 度 が 得 ら れる こと が 多い 。 い ま の 問題 で は , 0 
か ら 5 ま で を 10 等 分 し て 台形 公式 で 積分 する , と いう 程度 で 十分 な 精度 
が 得 ら れる 。 厳 密 な 積分 値 は 
y ァ /2=0.88622692545 … 
4 (円 の 面積 ) 


数 値 積分 に より 人 「 ソ ユ ー2 み の 値 を 求め よ 。 


(ヒン ト ) これ まで の 例 で は 容易 に 良好 な 
結果 が 得 ら れ た が , この 問題 は 「 数 値 積 分 が 
常に 簡単 に 成功 する と は 限 ち ない 」 と いう こ 
と を 示す 教訓 的 難題 で も わっ て , 分 割 を 細か く 
し て も , 高 次 の 公式 を 使っ て も , な か な か 思 
わし い 結 果 が 出 な い 。 原因 は , 被 積分 関数 の 
微 係数 が 無限 大 に な る 点 が ある た めで ある 。 
この よう な 積分 を うま く 計 算 す る に は , 

IMT ( 伊 理 ・ 森 口 ・ 高 澤 ) 公式 

DE (double exponential) 公式 

適応 型 の 数 値 積 分 公式 
な ど を 用 いる 必要 が ある (いずれ も 高度 な 技法 な の で 自作 に は 向 か な い 
が , 計算 セン ター の 数 値 計算 ライ プラ リー な ど に 入っ て いれ ば 利用 する 
と よい )。 な お , 特異 点 を 避け て , 右 下 の 図 の よう に 

2 / (ローー ァ ) 

に な お し て 計算 すれ ば , そう いう 高等 プロ グラ ム を 使わ な く て も , 普通 
の 公式 で 容易 に 良い 結果 を 得る こと が で きる 。 
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4.4 常 微分 方 程 式 


コン ピュ ー タ ー に よる 常 微分 方 程 式 の 計算 法 は , 単独 ( 非 連 立 )、1 階 
の 常 役 分 方 程 式 の 初期 値 問題 の 解法 が 基本 的 で . それ を 応用 すれ ば , 連 
立 の 場合 や 高階 の 場合 の 計算 も 行なう こと が で きる 。 


4.4.1 簡単 な 例題 

は じ め に , 簡単 な 例題 に よっ て 、 基本 的 な 考え か た を 説明 し て お く こ 
と に する 。 

コッ プ に 100C の 湯 を 入れ , 室温 0 で の 


部 屋 に 置く 。 湯 の 温度 を で, 時刻 を 
と する 。 湯 の 温度 の 変化 率 は (ご く 単 純 


化し て 考え れ ば ) 湯 の 温度 と 室温 の 差 に 

比例 する で あろ う 。 そ の 比例 定数 は 、 コ  。 

ッ プ の 熱 伝導 率 , 表面 積 。 比熱,、 その他 

いろ いろ な も の に 関係 する が , ここ で は 話 を 簡単 に する た め , 比例 定数 
は 1 と し て 計算 する こと に する (一 般 の 場合 で も , いわ ゆる 無 次 元 化 と 
いう 処理 を すれ ば 同じ 形 に な る )。 以上 の 関係 を 式 で 書け ば 


ア 


Y 


微分 方 程 式 学 ニ ーッ 初期 条件 y(0)=100 


と な る 。 こ の よう な 関係 を 満た す 関 数 y(x) を 求め る 間 題 が , 常 微分 方 
ま 式 の 初期 値 問題 (の 簡単 な 一 例 ) で ある 。 
簡単 な 解法 上 記 の 式 の の /x を 間隔 ん の 差分 商 で 代用 すれ ば 


キル ーッ am っ 


移 項 す れ ば 

y(* 十 ん) ニッ (*) 一 が y( ァ ) 
と な る 。 こ れ を 「 現 在 時 刻 # に お ける 温度 が 既知 の と き , その ん 時 間 後 
の 温度 y(x 十 ヵ ) を 近似 計算 する 式 ] と し て 用 いれ ば , 初期 値 (0) から 
出発 し て , y(* 填 放 ) (7 王 1 2, 3, …) を 求め る こと が で きる 。 





了 To っ っ ESRS> ラ ロキ SS56obo キ RFRKREWO5 や 5 sw 
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[プロ グラ ム 例 〕 時 刻 r 三 1 まで の 計算 を 行なう こと に する 。 

10 INPUT H 

20 EET N=1 ノ /H 総 ス テッ プ 数 を 計算 
30 LET X0=O0 

40 LEETT Y=100 

50 FOR 1=0O TO NN 


| 初期 値 の 設定 


6 0 LT メーX0 十 エ T*H 現時 刻 と 現時 点 に お 
7 0 PRINT X,Y ける 温度 を 出力 

8 0 LR 呈 マニ マー 時 * ネ Y 次 の 時 点 の 温度 を 計算 
90 NEXT 1 
100 ERND 


注意 〕 上 記 の プロ グラ ム て 実習 する 際 に は , ひと まず ヵ テ 0.1 て 計 
算 し て プロ グラ ム が 正常 に 動く こと を 確認 し , 次 に ヵ ー0.01 の 場合 を 計 
算 し て , 前 の 計算 結果 と 比較 する と よい 。 ヵ を も っ と 小さ くす る 場合 に 
は , 上 記 の プロ グラ ム だ と 出力 が 多く な りす ぎる の で , 次 の よう に し て 
出力 を 間 引 く 必要 が ある 。 

45 LET M=INT(0.1/H 二 0.5) 


50 FEOR 1 エ =0 TO 10 

6 0 攻 包 還 メー ニーX0 十 IT*O0.1 RCED 
7.0 PRINT X,Y 

7 5 FEOR J=1 TO M 

8 0 LBT マニ YーH※*※Y | 出力 せ ず に 進め る 
8 5 NEXT J 


90 NEXT 1 
な お , ん は 0.1 の 整数 分 の 1 に と る も の と する 。 
〔 補 足 ] 左記 の 計算 式 は 、 y(* 十 ) ニ (1 一 )y(x) と 書く こと も で き 
る 。 これ より 。 
y(1)=y(x 填 7) 三 (1 一 ん )7y(0)=100(1 一 1/ ヵ )? 
これ の z 一 oo の 極限 値 は 。 100e-「 と な り , 厳密 解 の 値 に 一 致す る 。 
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4.4.2 Euler 法 
単独 。 1 階 の 常 微 分 方 程 式 は , 一 般 に 
マニ ア (*, y) (1 ) 
と 書け る 。 た だ し , * は 独立 変数 、y(*) は 未知 関数 , ゞ は の y/ み の 意 
味 」。 げ (*。 y) は 「 ャ と の 値 が 与え られ た と き に ア の 値 を 求め る た め の 
計算 式 (必ず し も 一 つの 式 で 表せ な く て も よく , 要する に + と ッ ゅ か ら ア 
の 値 が 一 意 的 に 計算 で きれ ば よい ) で ある 。 コ ンピュータ ー で て 数値 的 に 
計算 で きる の は , 一 つの (与え られ た ) 初期 条件 
*ー ィ o の と き , ッ ーッ yo 
か ら 出 発し て , 
0 2 2 ea。 oe 
(た だ し , xx に ュ 十 7 。 ん は 分 点 間 隔 ) に お け 解 y の 近似 値 
03 255 の) ゆ 。 の" 
を 求め る こと で ある 。 こ の よう な 計算 を する に は , 基本 的 に は ,「 1 ステ 
ッ プ 進め る た め の 技 術 ] すなわち 「x*= ニ ィ *, の と き に ッッ テッ , で ある , と い 
うこ と が わか っ た と き に , ァ ニテ ァ 』 ュ に お ける y の 値 y』」 を 計算 する 方 法 ] 
を 確立 すれ ば よい 。 
(計算 の 方 法 〕 前 小節 と 同様 に , 微分 方 程 式 ( 1 ) の 微分 商 を 差分 商 に 
置き か えれ ば 


ーー 志 員 6 9 


y(* 十 ) ニ y(*) 十 が ( ァ 。 y) ( 2 ) 


ya ュー ニア 十 ん プ ( ァ 。。 7) 
と いう 計算 法 が 導 か れる 。 こ れ を Euler 法 と いう 。 
( 例 ) 往 分 方 程 式 ザ オッ ーe* の 場合 」 プ (x, ッ ) ニ の ーy で ある か ら , 計 
算式 は 、y』 ュ テッ 』 十 (ーッ) と な る 。 
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〔 解 説 〕】 「 微 分 を 差分 で 代用 する 」 と いう と 乱暴 な よう で ある が , 関 
数 を 点 y の まわ り の Taylor 展開 


ん 2 / 7 


yr+ め =y( 二 首 GO+ 知 YY(e) キ ー キ 生 ye(r) キー 


名 
の 2 次 以上 の 項 を 無視 すれ ば 式 ( 2 ) が 得 ら れる し , 式 (1 ) を *x か ら ァ 十 
ヵ ま で 積分 し て 得 ら れる 関係 式 


ズ + 
yr+ め =y(y)+/ げ (*, y)Zr 


の 被 積分 関数 / を , 定数 (に お ける 値 ) で 近似 し て も 式 (2 ) が 得 ら れ 
る わけ で , さら に 「 分 割 を 限り な く 細 か くす る と き , Euler 法 の 結果 は 
厳密 解 に 収束 する ] と いう こと も 証明 きれ て いる (文献 1 2 参照 )。 
[プロ グラ ム 例 〕 

10 TINPUT XO,Y,H,N 

20 EEOR エ =0O TO KN 

3 0 上 ET ニ X0 十 エ ※* 是 

4 0 PRTTNE 次 4Y 

5 0 GO8UB 100 

6 0 世 T YY 十 H*E 

70 NEXT 1 

80 8TOPB 

100 REM **※* EE( 又 ,Y) NO KEITSAN * ネ ネネ 
110 LET FE ニーX*Y げ (x、 y) の 計算 式 の 一 例 
120 RETURRN 

130 END 


演習 1 次 の 往 分 方 程 式 の 数 値 解 を Euler 法 で 計算 せよ 。 
(1) ザ + ァ xy テ 0  y(0)=1 
(2) ッッ ニ ァ ? y(0)=1 
(3) y+ ッ デーsinr y(0)=1/2 
2 上 の プロ グラ ム を 改造 し て , 解 の グラ フ を 出力 で きる よう に 
せよ 。 ま た 出力 間隔 を 間 引 け る よう に せよ 。 


140 4 数 値 計 算 

4.4.3 Runge-Kutta 法 

Euler 法 は 簡単 で 便利 で ある が , 精度 は あま り よ く な い 。 そこで, 精 
度 を 改良 し た 解法 が 数 多く 開発 され た 。 そ の 中 で , 比較 的 簡単 で あり な 
が ら 精 度 が よく 安全 確実 な 公式 と し て 最も よく 使わ れ て いる の が , 以下 
で 説明 する Runge-Kutta 法 で ある 。 

(計算 の 手順 〕 微分 方 程 式 は ャ ニア (r, y) と し , その ニャ , に お け 
る ッ の 値 y, ま で は 計算 済み と する 。 次 の 値 (x』」 ニ ィ *, 十 久 に お ける y の 
値 py』」) は , 下記 の よう に し て 計算 する 。 

1) と え ュ の 中 点 4 ー ィ , 十 7/2 に お ける の 値 y』 を Euler 法 に よ 
り 計算 する 。 
yy 三 y 十 (7/2) 7 
2) それ を も と に , 中 点 に お ける 
勾配 Y』 を 計算 する 。 
アッ ャ ニア (Xw。 y* ) 
3) 上 記 の 』 を 用 いて , 中 点 の 





の 値 を 再 計 算 す る 。 
ym デ y 十 (2) ア 。 も も 1 も 3 
4) それ を も と に , 中 点 に お ける 勾配 を 再 計算 する 。 


ア ョ ニー ア (z*。 ys ) 
5) それ を 用 いて xr』」 に お ける の 値 の 概算 値 把 」」 を 作る 。 
ダー ッ 十 ん 7 
6) それ を も と に , y ョ 』」 の 概算 値 』 ュ を 求め る 。 
1 ー ア ( え 。 ダ ュ ュ ) 
7) 以上 , 4 回 計算 きれ た 勾配 y*。 yW。 Yami を 。 1 1: 2 1 2・ 
1 の 重み で 平均 し て 用 いて 最終 的 な y』」 の 値 を 計算 する 。 
生 ei タ 十 y* 2 ヵ 
こう し て 計算 きれ る y』」 と 真 の y(zj』」) の 差 は が の オー ダー で ある 
(要する に 非常 に 小さ い ) こと が 証明 され て いる 。 
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数値 例 ] 4.4.1 節 と 同じ 問題 
ニー ッ  》(0)100 
を Runge-Kutta 法 で ヵ テ 1 と し て 計算 し て みる 。 
0.5 ym 三 100 十 (一 100)/2=50 y*ーー50 
ym 三 100 十 (一 50)/2=75 。》% テ ー75 
y』」 三 100 一 75 三 25 y ュ デー25 


ym =100 ト ーーー ター パー スー x 1 37.5 





この 値 は , 100e テ の Taylor 展開 式 の 第 5 項 ま で の 和 の x*= テ 1 の 値 


100 ( ュー 語 オ 二 ー 導 古 )37.5 


に 等 し い 。 

〔【 プ ログ ラム 例 ] ここ で は 簡単 の た め !, 関数 げ (z, y) が ヶ を 含ま な 
い 場 合 、 す な わ ち 微分 方 程 式 ゞ ニア (y) の 場合 の 例 を が す 。 

10 DEE FENO(Y) モー ニニ ーー これ は 利用 者 が 定義 


20 INPUT XO,Y,H,R 
30 FEOR エ =0O TO KN 


40 PRINT X0 十 IT*H,Y 

5 0 LT F1 ユ =FNO(Y) ア : 
6 0 LT FE2= ニ FNC(Y 十 H*E1/2 ) アダ 』 
7 0 ET 3ーFNO(Y 十 H*E2/ ノ 2 ) ア ョ 
80 ET FE4= ニ ENO(Y 十 H*RES2 ) ダ ュ 
90 LRT = ニ (E1 十 2*F2 十 2*E3 十 FE4 )/6 
100 LT マニ Y+E* ネ HH Ya 
110 NEXT 1 
120 END 





† 基本 BASIC で は 関数 の 引数 が 1 箇 し か 許さ れ な い の で , ア (x, y) は 
サブ プルー チン の 形 で 扱わ な けれ ば な ら ず , プロ グラ ム が 長く な る 。 あ と て 示 
す 「 連 立 の 場合 の プロ グラ ム 例 ] を 参照 され た い 。 
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4.4.4 高階 微分 方 程 式 の 解法 
階 微 分 方 程 式 の 場合 、 2 階 か ら ヵ 一 1 階 ま で の 導 関 角 を それ ぞ れ 別 
個 の 関数 と し て 扱え ば , 連立 1 階 の 微分 方 程 式 に な る 。 
( 例 1 ) ザ +2y+3y テ cosx の 場合 、 ア を る < と 置け ば , 
ツー 
る ニア coS *ー2 ぇ 一 3 ッ y 
( 例 2) アダ オッ アニ 0 の 場合 、 yi= ニ ッ ,。 ys ニア , ya ニッ 
と 置け ば 
yi 三 y> 
y2 三 Vs 
ys ニー リ yiys 
この よう に 連立 1 階 の 形 に し て か ら , 次 小節 で 述べ る 方 法 を 適用 する 。 
演習 1 次 の 徹 分 方 程 式 を 連立 1 階 の 形 に な お せ 。 
(1) ダ +sin ッ = 0 (2) y" オ ッ テ 0 
(3) *2 ダ オア 十 (*2ー1) ッ = 0 


4.4.5 連立 1 階 微分 方 程 式 の 解法 
連立 1 階 の 常 役 分 方 程 式 は 一般に 次 の 形 に 書け る 。 
三方 (z。 タロ 。 2。 の ) 
ys 三 訪 (*。 タタ 2。 の アタ) 
三方 ( テ 。 アア y2。 …。 ア ) 
た だ し , 今回 の 添字 は 「 変 数 の 番号 ] を 表し て いる 。 
連立 の 場合 の 計算 法 は , 本 質 的 に は 単独 の 場合 の 計算 法 と 同じ で , た 
だ それ を ヵ 箇 の 変数 に つい て 同時 に 計算 すれ ば よい 。 
Euler 法 を 適用 する 場合 の 計算 式 は 次 の よう に な る 。 
ym(x 寺 =m(x) 填 が 」(、 yi(*)、…, yz(r) ) 


ya(* 填 の =y』(*) 十 が (*。 ya( テ ), …。 yz()) 
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( 例 ) 左記 の 例 1 の 場合 な ら , 次 の よう に 計算 すれ ば よい 。 
y(* 十 ニッ (r) 十 7 る 
Eh 
初期 条件 を y(0)= 0, z(0)= 0 と し , 進み 幅 を ヵ ー0.1 と すれ ば 
y(0.1)= 0 0.1X0 テ 0 
人 ee 
y(0.2)=0 十 0.1X0.1=0.01 
ぇ (0.2) 王 0.1+0.1X(0.995 一 2X0.1 一 3X0) 王 0.1795 


以下 同様 。 コ ンピュータ ー で 計算 する の で あれ ば , 次 の よう に する 。 





10 INPUT XO,Y, 只 ,K,H 2 

20 FOR エ L=0 TO K で の ステ ッ プ 数 

3 0 ET X ニ =X0+ 芽 * 是 

40 PRINT X,Y, 

5 0 LET Y0= ニ Y 十 H* 選 

6 0 LT ニー の 十 H*(OOS(X) 一 2* 避 ー32*Y) 

70 ET Y=YO 

80 NEXT エ 

90 END 

Runge-Kutta 法 を 適用 する 場合 の 計算 式 は 次 の よう に な る 。 
ダ 計 三方 (を 。 Ia な を) 2 な の の az) ( 7 1,2,…, z ) 

| ym 大 十 (/2) yi ( / ) 

ア 三 た (Ya > mm) 2m> の うい yz*) ( / ) 
ym 王寺 (//2) y 語 ( / ) 
ダ 誠 王 方 (を my my "っ am) ( / ) 
Mg Yiz 十 ん 語 ( / ) 
ダ 放 三方 (。 2g の ら g) ( / ) 


十 2 ア 店 十 2 ア 誠二 ダ 語 
ニタ 誠二 ツ な 2 の ツ 清二 誠 ヵ ( / ) 





た だ し , ァ 』 データ ァ ヶ 十 2。 4 ディ た 十 ん また *。 と yy が 次 の ステ ッ プ の 
た と yk に な る 。 
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[プロ グラ ム 例 〕 

10 DIM Y(5) ,YO0(5) ,E(5) 

20 DIM “1(5) ,E2(5) ,E3(5) 

30 READ XO,N,H,K 

40 EOR エ =1 TO KN 

5 0 REEAD YO0(1) 

6 0 ET Y(1T)=YO(T1) 

70 NEXT 1 

80 FEOR エエ =0 TO K 

9 0 LT XーX0+ エ 束 H 
100 GOSUB 500 

36 FEOR エ =1 TO 
120 LET EE1(1)=EF(T) 
130 ET Y(1)=YO(T1 ) +E( 1 ) *H/ ノ 2 
140 NEXT 1 
150 L 包 呈 メー メ 十 H/ ノ 2 
160 GOSUB 500 
170 FOR エ =1 TO NRN 
180 ET FE2(1)=F(T1) 
190 ET Y(T )=YO0( 1 ) +E( 1T ) *H ノ 2 
200 NEXT 1 
210 GOSUB 500 
220 FOR エ =1 TO 
230 LET FE3 る (1T)=E(T1) 
240 LET Y(T ) =YO0( 1 ) + エ E( 1 ) *H 
250 NEXT 1 
260 L 包 T メーX 十 HH/ ノ る 
270 GOSUB 500 
280 FEOR エ =1 TO 
290 LET Y(T)=YO(T1) 二 (F1(1) 二 
(続き ) 2*FE2(T) 十 2*P3( 1 ) ]E( 1 ) ) *H ノ 6 

300 ET YO(T)=Y(1) 

31 0 PRETTNP 立 ( エ ) 。 


320 


NEX 呈 1T 
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330 PRINT 婦 * の 値 は 一 番 右 の 列 に 印刷 され る 。 
340 NEXT 工 

350 END 

500 REM プア の 計算 の プロ グラ ム を 利用 者 が 書く 
510 FE(1)=Y( る 2) (これ は 例 1 の 計算 の 場合 ) 


520 FE(2)=COOS(X) 一 Aa2*Y(2) 一 3*Y(1) 
530 RETURR 
540 DATA 0,.2.0.1,100 


550 DATA 0 0)= テ 0 

初期 条件 | 
560 DATA 0O y(0)=0 
570 BND 


4.4.6 常 微分 方 程 式 の 数 値 計算 の 注意 

Runge-Kutta 法 は , 1 ステ ッ プ 進む 間 ( ャ か ら * 十 まで の 間 ) 各 未 
知 関数 の 4 階 ま で の 導 関 数 が 連続 で ある こと を 仮定 し て いる 。 し た が っ 
て , その 間 に ア の 計算 の 不 連続 点 を 作ら な いよ うに (た と えば , 自動 制 
御 系 の シレ ミュ レー ショ ン の 場合 , ス イッ チ の ON, OFF を し な いよ う 
に ) 注意 する 必要 が ある 。 

進み 幅 ん は 少 き すぎ で も 大 きす ぎ で も いけ な い 。 小 きす ぎる と 

y(* 填 がめ = ニ y(x) 十 (増分 ) 





の 計算 の と き , 右 図 の よう に な っ X . XXXXX y(*) 
て , 増分 が 無視 され て し まう 。 一 + 0.000000XX 増分 
方 , 進み 幅 が 大 きす ぎる と 精度 が 

な り . きら に 過大 に すれ ば 発 災 。 層 災 XX y(* 十 旋 ) 
悪く よ * ら 【 こ 電 ー し 陸自 厩 こ = ドコ 


散 す る こと が ある 。 
(文献 〕 
1) 一 松 信 : 役 分 方 程 式 と 解法 , 教育 出版 (1977) 
2) ヘン リナ チ ( 清 水 , 小林 訳 ) 計算 機 に よる 常 微分 方 程 式 の 解法 、I , II, 
サイ エン ス 社 (1973) 
3) C. W. Gear : zze77c/ 22772/ 02/7ze 700/6772S 772 07 の 77777 ツ の 7776767772/ 
e9277o5, Prentice-Hall (1971) 
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4.4.7 応 用 問 題 

1 (大 振幅 の 振子 ) 

右 図 の よう な 振子 が ある 。 お も り に 
か か る 重力 は go (た だ し の は 重力 加 
速度 で 約 980 cm/ s* )、 そ の 接線 方 向 成 
分 プ げ は , アプ = テ 729Simn の し た が っ て 。 ト 
ルク は が /z9sSin の , 一 方 , 質量 慣性 
モー メン ト は / で ある か ら , 運動 方 
名 式 は 





の ゞ 

/2* 

た だ し , s は 接線 に そっ て 計っ た 変位 で あり , の と s の 関係 は (角度 9 

の 単位 を ラジ アン と すれ ば ) s ゞ =/ の 9 で ある 。 こ の 関係 を 入れ る と 結局 
商 三 ー テ sin の 

これ が , 大 振幅 の 振子 の 微分 方 程 式 で 初等 関数 の 範囲 で は 解け な い 。 

7 三 30 cm, 初期 条件 % ニ z/6 ラジ アン , 初速 0 と し て , 7 = 0 から 10 秒 

間 の 解 を 求め よ (Euler 法 な ら ば 7 を 小さ く と る 必要 が ある 。 Runge- 

Kutta 法 な ら ば 7 は 0.1 秒 ぐ で らい で よい )。 こ れ が うま く 解 けた ら , さ 

ら に 大 き な % に つい て 計算 し て みる と よい (た と えば , 三 (5/6) z ラ 

ジア ン 。 右 下 の 図 参照 )。 

〔 注 意 〕】 % を 大 きく する と 周期 が 長 

く な る か ら , 解 を 求め る 男 囲 (終端 時 

刻 ) を それ に 合わ せ て 拡大 する ( 遅 ら 

せる ) 必要 が ある 。 一方, 進み 幅 は 小 

さく する わけ に いか な い (支点 の 直下 

を 通過 する 時 の 速度 が 大 きい か ら )。 そ 

の た め , % を 大 きく する と 計算 所 要 時 

間 が 急増 する 。 


7/ ニー gsin の 
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2  (C-R フィ ルター) 

右 の 図 は 、 電源 回 路 な ど 
に 用 いら れる C-R 回 路 の 一 
例 で ある 。 左 側 の 端子 に 整 『Imn gd 
流 器 か ら 出 て きた 脈 流 を 入 
れる 。 そ の 電圧 を 

カテ デザ |sin g 有 | 

と する 。 端 子 電圧 如 , , 5s の 関係 は Ohm の 法則 に より 


アパ 」 デ カー の 2 







72 王 22 一 203 
723 73 王 の 5 一 0 
と な る 。 ま た コン デン サー の 人 性質 か ら 


の po カー7 の 2/。 2 一 8 


7 (9 の / C 
以上 を まとめ る と , 次 の よう な 微分 方 程 式 が 得 ら れる 。 





47 1 ーー | 
の  Gm 如 


還 也 





の 1 (に _ ) 
の Cs た の んで | 

た だ し , テリ lsin og】| 
回 路 定 数 が ij、 7 Ci, Cs, 負荷 抵抗 、 電源 電圧 お よび 角速度 の 
進み 幅 7, 計算 打ち 切り 時 刻 7。 を 読み 込ん で , 上 の 微分 方 程 式 の 数 値 
解 を 計算 する プロ グラ ム を 作れ 。 初期 条件 は 

7 0 に お いて テテ 0 
人 の o 
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4.5 方 程 式 F げ (*)=0 の 根 


方 程 式 (x)= 0 の 実現 の 計算 に よく 使わ れる 方 法 と し て は 次 の よう 
な も の が ある 。 

Newton 法 適当 な 第 1 近似 値 > 
か ら 出 発し て , 


Y 


ア (x。) 


PR コ の に プ (x。 
(を 1, 2. …) に よっ て 精度 を 高め て O 
ゆく 。 上 式 は , 点 (z。 y4) に お いて 。 
曲線 y ニ ア (x) の 接線 を 引き , * 軸 と の 交点 を aai と する こと を 意味 
し , 要する に ア (*) を 局部 的 に 1 次 式 で 近似 し て 近似 解 を 求め て いる わ 
け で ある 。 根 に 近づく に し た が っ て , この 近似 の 精度 が 良く な る た め 。 
収束 は し だ い に 速 く な る 。 適 当 な 第 1 近似 値 が わか っ て いる 場合 に は 非 
常に 良い (速い ) 方 法 で ある 。 
〔【 プ ログ ラム 例 〕 方 程 式 ーcos*=0 を 解く プロ グラ ム を 作っ て み 
よう 。 (xr) ニャ ーcos *。 プ (z) ニ T 十 sin x で ある か ら 。 











イメー COS そん 


メ ぁ +1 三 タ ルー 
トー プル 1] 十 Sin を 


を 反復 すれ ば よい 。 出 発 値 は x, 三 1 に と る こと に する 。 


10 世 ET ニ 1 ュ 
20 FOR K=1] TO 10 


3 0 ET エー メーOOS(X) 

4 0 世 T D= ニ 1] 二 STRN(X) 

5 0 LL 思 T XXー ニ メー モノ D 

6 0 TE ABS(E) く 0.00001 THREN 80 
70 NEXT K 

80 PRINT "X=":X 


90 END 


4.5 方 程 式 7(x)=0 の 根 

2 分 法 最初 に .(x)> 0 に な る 点 
*+ と 。 プ ( ァ ) く 0 に な る 点 z ヶ - を さがし て 
お く 。 次 に ァ - と *+ の 中 点 。 に お いて 
関数 値 を 計算 し , その 待 号 を 調べ る 。 も 
し これ が 正 な ら ば 根 は *- と *。 の 間 に あ 
り , 負 な ら ば 根 は *」 と *』 の 間 に あ る か 
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ら , それ に よっ て *」 ま た は ァ - を *。 て で 置き 換え て 同様 な 計算 を 反復 す 


れ ば よい 。 

[プロ グラ ム 例 〕 左記 の 例 と 同じ 方 程 
式 一 cos * 三 0 の 根 を 計算 する 場合 の プ 
ログ ラム 例 を 示す 。 出 発 値 は 

*-ー0 * 二 1 
と する 。 根 の 存在 範囲 は 反復 1 回 ご と に 

1/2 に な っ て ゆく 〈 く から, 10 回 反復 すれ 
ば |*」ー*-| =2-0 呈 10-3 に な る (精度 は 
この 程度 で 実用 上 十分 で あろ う ) )。 

10 LETT M=0 (*-) 
20 LE 呈 P=1 (x。) 
30 FEOR K=1 TO 10 

40 LT メー(M+P ) / ノ る 
5 0 ET ニーXーCOS(X) 
6 0 TE EE< く 0 THEN 90 
7 0 LT P= ニ XX 

80 GOTO 100 

90 LT M=X 

100 NEXT K 

110 PRINT !X= リ ":X 

120 END 


文献 ) 上 記 以 外 の 解法 に つい て は 次 の 文献 が 詳し い 。 
1) 戸川 隼人 詳解 数 値 計算 演習 、 共 立 出版 (1980) 
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4.6 高 次 代数 方 程 式 


本 節 で は , 実 係数 の ヵ 次 代数 方 程 式 
7 十 の 1 ゲト 十 の 2 メ 72 十 … 十 の ユイ 十 の ヵ 三 0 
の すべ て の 根 ( 実 根 , 複 素 根 と も ) を 計算 する た め の Bairstow-Hitchcock 
法 に つい て 説明 する 。 
〔 原 理 ) 上 記 の 方 程 式 の 左辺 を 了 げ (x) と する 。 こ れ を , 実 係数 の 2 次 
式 ** 十 の カ x 十 9 と, 一 2 次 式 
9(*) ニ ティ 2 十 の 」 273 十 の 。 ィ ー 二 … 十 の 5 そ 十 の 』-2 
の 積 に 因数 分 解す る こと を 考え る 「。 
ア (x) テ (x2 十 カタ 十 の) 9( ヶ ) 
この 分 解 が で きれ ば , 2 次 方 程 式 ** 十 jx 十 9 デ 0 を 解い て 二 つ の 根 が 
得 ら れ , 9(x) の 方 は また 今 と 同様 な 因数 分 解 を し て ゆく こと が で きる 
で あろ う 。 間 題 は , いか に し て 上 記 の よう な か , 9 を 求め る か で ある が , 
Bairstow-Hitchcock 法 で は 次 の よう に する 。 
まず , ヵ と 9 の の 出発 値 (第 1 近似 値 ) を 適当 に 選ぶ 。 そ し て , 2 次 式 
** 十 カ ァ 十 9 で ア (*) を 割っ て みる 。 そ の 商 を 9(x) , その 係数 を ヵ ,, 
7 の ヵ -2, 余 リ を 7Y 十 s と する 。 割り 算 の 要領 は 
ィ 7ー2 上 の 」 ィ 1 十 … 十 の 2 
2 十 の 十 9)*7 十 の 1 二 22 テ 2 十 … 十 の 』ー ュ イ 十 の ヵ 
2 十 の メー トー 二 の ィ ゲー2 
(2 るー カ が)*! 十 (2 一 の ) ァ ゲー2 十 の 7ー9 
の 1 二 の 」 の ィ 2 寺 の 」 7 9 
以下 同様 
余り 巡 十 s 
計算 式 は 右記 1) の と お り で , ヶ テ ムカ 』-」。 s 三 の 』 十 の の -」 と な る 。 











† 実 係数 の 代数 方 程 式 の 複素 根 は 必ず 共役 複素 数 に な る の で , この よう 
な 実 係数 の 因数 分 解 が 可能 で ある 。 1 次 式 と ヵ ー 1 次 式 の 積 に 分 解 し よう と 
する と , 一 般 に 複素 係数 の 多項式 に な 計算 に 手間 が か か る 。 
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の と 9 を 与え る と ヶ と 5s が 決ま る の で ある か ら , 7 ヶ と s は か ヵ かと の 関 
数 で ある 。 そ れ が 同時 に 0 に な る よう に , ヵ , 9 の 値 を 修正 する 。 修 正 
量 を 2 ヵ , 2 と し 2 変数 の Taylor 展開 の 1 次 の 項 ま で と る と すれ ば 


7a 


ヶ ( ヵ /+2 カ 、9 十 2) ヶ ( か の + う 3 ダ + 壇 5 


72= テ 0 


Os 
99 


を 解い て 2 ヵ , 2 を 決め れ ば よい 。 そ の 係数 は 次 の よう に し て 求め る 。 
(x*2 二 が の y 十 9) 9(*) 十 (7x 二 5) ニア (r) (定義 より ) 


9(*) 十 (x“ 十 が 9) 2 タ ト あー 0 (本) 


し た が っ て , 9(*) エ (x? 十 カ x 十 9) の 余り の , の 係数 が 一 97792 で 定 
数 項 が ーー9s/22。 同 様 に xg(*) エ (*2 十 が 十 9) の 余り の * の 係数 が 
ー97 の の, 定数 項 が 一 9s/9》 で ある 。 
【 計 算 手順 ) 以上 を まとめ る と , 次 の よう に な る 
1) ム デ ムー カ 7 ぁ 三 2 一 カー 
7 三 3, …, の 順に 


s (の ヵ 寺 2 カ , 9 十 グ 2) 王 s( か の + 全 っ プ 9 ラー = 0 











6 一 の の ュー の の に 2 
2) ci ニー カ , cz 三 の z2 一 ci 一 
7? 三 3, …, z ヶ 一 1 の 順に | s| が 
し ーー の cr ューgcr-2 十分 小さ く な 
3) 連立 1 次 方 程 式 る まで 反復 。 


cz-2 の の 十 c ヵ 9 王 
(ュー の - ュ 2 の 十 c- 22 6, 
を 解い て 2 ヵ , 9 を 求め る 。 
4) 新 カ ー ヵ カ 十 2》, 新 9 王 9 十 22 
5) 2 十 ヵ x 十 9 三 0 (その 根 が も と の 方 程 式 の 根 に な る ) 
新 の, (7 三 1, 2,…,、 一 2 )、 新 ニル ァ ー2 と し て , 手 
順 1 に も どる 。 た だ し z ヵ SS 2 な ら ば 直接 解い て 計算 終了 に する 。 
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[プロ グラ ム 例 〕 
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(文献 ) 代数 方 程 式 の 解法 に は , この ほか , DKA 法 、QD 法 , Laguerre 
法 な ど 。 いろいろ ある 。 こ れ ら に つい て は 下記 の 文献 を 見 よ 。 
1) 山本 哲郎 : 数 値 解析 入門 、 サ イエ ンス 社 (1976) 
2) ヘン リッ チ ( 一 松平 本 、 本 田 訳 ) : 数 値 解析 の 基礎 、 培風館 (1973) 
3) 新谷 尚 義 : 数 値 計算 1 、 朝倉 書店 (1967) 
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【4.5 節 と 4.6 節 の 応用 問題 】 
1 (が ( ぶ )= 0 の 根 ) 
次 の 方 程 式 を 解け 。 
( i) 2 ァ ーtanr テ 0 
(ii) 2x*ーcoshx テ 0 
( 呈 ) x2ーsin ァ テ 0 
(ヒン ト ) この よう な 問題 の 場合 、 
まず , グラ フ を 描い て , 根 の 箇 数 や 
概略 の 値 を 調べ て お く 〈 く と よい 。 た と アニ 2 ァ ーtam * の グラ フ 
えば ( i) の 場合 、 グ ラフ は 右 の 図 の 
よう に な る か ら , 根 は 3 箇 あ り ,、 その 一 つ は * テ 0 で , 他 の 二 つ は 原点 
に 関し 対称 で ある か ら 一 方 (た と えば 正 根 ) だ け を 求め れ ば よく , その 
出発 値 と し て は * テ 2 (ある い は 2.1, 2.2 な ど ) を 用 いれ ば よい , と い 
うこ と が わか る 。 
(ji) の cosh * は , 周知 の と お り , 双曲線 余弦 (hyperbolic cosine ) で , 
定義 は 





cosh x 三 ( ど 十 @ そ )/2 
導 関 数 は 
(cosh *) 三 sinh x=( バーg@ ゞ )/2 
で ある 。 
2 (送電 線 ) 
送電 線 の よう に 自重 で た れ 下 っ た ケー ブル の 形 は , 沙 垂 線 (けん すい 
せん , catenary) に な る こと が 知ら れ て いる 。 正確 に いえ ば , 最も 低い 
点 を 原点 と し 、 水平 に * 軸 , 垂直 (上 向き を 正 ) に ャ 軸 を と る と き , 曲 
線 の 方 程 式 は 
yg(cosh (x/4) 一 1) 
と な る 。 6 は パラ メー ター で , 与え られ た だ 力学 的 (また は 幾何 学 的 ) 条 
件 か ら 決ま る 。 た と えば , 鉄塔 の 間隔 と ケー ブル の 長 さ を 与え た 場合 
6 は 次 の よう に 計算 で きる 。 
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原点 か ら 、 ケー ブル 上 の 点 (xr, y) まで の 距離 は 


エ 
s=/ Y1 二 (y)2 アテ Zsinh 


で ある か ら , 鉄塔 の 間隔 を 7 , ケー ブル の 長き を ん と すれ ば , 
7/2 


ル - 
2 三 4Sinh の 


この 方 程 式 を 解け ば 4 が 得 ら れる 。 
以上 の 関係 を 用 いて , 鉄塔 の 間隔 が 200 m、 ケー ブル の 長き 220 m の 
場合 の 。 た る み (下図 ゅ ) を 求め よ 。 
(ヒン ト ) 方 程 式 
110= テ Zsinh (100/2) 
を 解く の で ある が , その まま 計算 し よう と する と 複 維 に な る の て で 
7 三 100/Z 
と 置き , 
1.17 王 sinh 7 
と 変形 し た 上 で Newton 法 な ど を 適用 する と よい 。 


【 文 献 ) 森口 繁 一 : 力学 日 本 機械 学会 (1949) 


5 


| 


3 (3 次 方 程 式 , 4 次 方 程 式 , 5 次 方 程 式 ) 
次 の 方 程 式 を 解け 。 

( i) 一 6x2 十 11* 一 60 

(ii) “一 9 一 ター ァ ー2 テ 0 


( 操 ) x5 十 *% 一 2x3 一 2x2 十 ァ 十 1 王 0 
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4./ 連立 1 次 方 程 式 


4 数 値 計 算 


Gauss の 消去 法 連立 1 次 方 程 式 の 計算 に は 普通 , Gauss の 消 夫 法 
が 用 いら れる 。 要領 は 筆算 と だ いた い 同 じ 。 そ れ を 表 の 形 で 規則 的 手順 


に より 計算 する 。 





筆算 の や りか た 計算 
( 例 )[ 2* 二 4y 十 6<=6 表 に まとめ る 
3 ァ 十 8 ッ 二 7 <=15 
5* 十 7 ッ 二 21z 三 24 
第 1 式 を ャ に つい て 解く と 第 1 行 を 


ィ ー ニ 3 一 2 ッ ー3 々 る 第 2 行 , 
残り の 式 に 代入 し て 整理 する と 
2yー2z=6 
隔 6 


上 の 式 を ッ に つい て 解く と 第 2 行 を 
ッ ー3 十 る 行か ら 引 
これ を 下 の 式 に 代入 し 整理 する と 
3 々 三 18 … < テ 6 


順に 上 の 式 に 代入 し て =9, * ニ ー33 を 得る 
一 般 の 場合 


機 に よる 処理 法 
② 4 6 6 
3 8 7 | 15 
5 7 。 21 | 24 








2 で 割り 。 3 倍 , 5 倍 し て 
第 3 行か ら 引 く 〈。 








1 2 3 


0 ⑳ -2 6 
0 -3 6 9 





2 で 割り 一 3 倍 し て 第 3 
く 。 





1 2 3 3 
0 0 = 紳 3 
0 0 ⑨③ | 18 








係数 を 表 に まとめ る 。 一 























の 」 え ュ 十 の js 2 十 … 十 の イー ムカ の の 2 の" gm ム か 
g21Y」 十 の 222 十 … 十 2 ヵ イ ー 02 2 の 22 … の zz| 02 
mm 十 の zz え 2 十 … 十 の zz の 。 の z」 の z2 zz | / 
〔 計 算 手順 ] [ を =1,2.…, ァ 一 1 の 順に 
新 4 の / 2 (チー を, を 十 1,…。 み ) 
新 4 王 /Z ナニ ん 二 1 か ら で も よい 。 
前 進 消去 0 
7 三 を ん 十 1,…, に つい て 
新 2 ヵ ー2 テ ー の ry (7 ニテ ん , ん 二 1,」…, z ) 
新 の ,= ヵ , 一 gz の 4 
ィ ヵ ー の 』/2』。 
を ニタ ー1, み ー 2,…, 1 の 順に 
後退 代入 カ 
しま 


4.7 


10 
20 
30 
4 0 
5 0 
6 0 
7 0 
8 0 
9 0 
100 
+10 
1 20 
130 
140 
150 
160 
170 
180 


190 
200 
210 
る る 0 
230 
る 40 
250 
260 
270 
280 
290 
300 
310 
3 る 0 
330 
340 
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DIM A(20,20) ,X(20) ,B(20) 
INPUT RNN 


FEOR 1 エ =1 TO K パ 係数 と 定数 項 の 読み 込み 
FOR J ゴ =1 TO KR 
PRINT "A(" TU リ 0: す Ji WU) =W: 
INPUT A(1I, 了 ) 
NEXT 了 
PRINT "B(" iTV)= リ : 
TNPUT B(1) 
NEXT 1 
FOR K=1 TO Nー1 ここ か ら 前 進 消去 


FOR JJ=K+1 TO RNN 
LET A(K, 了 )=A(K,J)/A(K,K) 
NEXT ~ 了 
LET B(K)=B(K)/A(K,K) 
FOR T エ =K 十 ] TO 
FOR J ゴ =K 十 ] TO RN 
LBP A( エ T,J)=A(T,J) 一 
(前 行 の 続き ) A(T,K)*A(K, 了 ) 
NEXT J 
LT B( エ T)=B( エ T) 一 A(IT,K)*B(K) 
NEXT 1 
NEXT K 
ET X(N)=B(N)/A(N,RN) 
FOR KーN 一 1] TO 1 STEBP 一 ] こ こ か ら 後 退 代入 
LT 8=0 
FOR JJ=K+1 TO RNN 
LT 8= ニ 8 十 A(K, 了 )*XX(~ 了 ) 
NEXT 了 
LET X(K)=B(K)-8 
NEXT K 
FOR K=1 TO RN 
PRTNT "XX( り ii: リ )= リ :() 
NEXT K 
END 
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ピボット 選択 前 ペー ジ どの プロ グラ ム に は , 一 つ 欠 点 が ある 。 そ れ 
は , 文 130 お よび 文 150 に お いて , A (K, K) の 値 が 0 の と き , 計算 が 
不可 能 に な る こと で ある 。 そ れ を 避け る た め に は ., 文 110 と 文 120 の 間 で , 
次 の よう な 操作 を すれ ば よい 。 
Zzz の ri "の zx の 内 て で 絶対 値 最 大 の も の を さがす * 
それ が 第 / 行 (/ ま を ん) に あれ ば 第 / 行 と 第 を 行 を 交換 する '? 
この よう な 操作 を ピボット 選択 と いう 。 ピ ボッ ト (pivot) と は , 消去 す 
る 変数 x。 の 係数 z。g。 の こと で ある 。 
〔 プ ログ ラム 例 〕 前 記 の プロ グラ ム の 文 110 の 後に 挿入 


1 1 1 LT エニ K ーー 

中 邊 る FOR 1 エ =K 十 ] TO RNN | 

113 IP ABS(A(I,K) ) く <=ABS(A(L,K) ) 
(前 行 の 続き ) 中 HEEN 115 | 

11 4 LT エニ 1 第 ん 列 の 最大 絶対 値 を さがす 

115 NEXT 1 _。 

116 TE エエ = ニ K THEN 125 7 ニ を な ら ば スキ ッ プ 

117 FOR J=K TO KN 

118 LT W=A(K, 耳 ) 第 ん 行 と 第 

119 BT A(K, す )=A( 上 。 ず ) / 行 を 変換 

120 LET A(L,J)=W 


1 2 1 NEXT J 
1 22 LRT W=B(K) 


1Z3 LET B(K)=B(L) 4 と が を 交換 
124 LET B( エ )=W 
125 FOR J ゴ =K 二 1] TO RN (も と の 文 120) 


† 脱線 防止 だ な け な ら ば 「0 で な いも の を さがす 」 だ け で よい が , 絶対 値 
最大 の も の を ピボット に 用 いる と 丸め 誤差 を 小さ くす る 効果 が ある 。 
財 「 行 の 変換 ] は 「 連 立方 程 式 の 式 の 順序 の 変換 ] に 相当 する 。 あ と で 
その 影響 を 補正 する 必要 は な い ( 列 の 交換 を し た 場合 は 補正 が 必要 )。 
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掃 出 法 (Gauss-Jordan 法 ) 係数 と 289 の P el 競 
定数 項 を 右 の よう に 表 の 形 に まとめ , 下 の 2 922 。 "| の zz| の 05 
記 の 手順 で 計算 する 。 計 算 量 は ガウ ス の 
消去 法 より 多い が 計算 手順 が 科 単 な の で 17 26 2 の 
小型 計算 機 な ど で 用 いら れる 。 Oo 


ん = テ 1, 














…。 7 の 順に 





MM 


7 三 1, 


2,。…。 2 に つい て (た だ し 7 ん を 除く ) 





し 1 第 行 の ga 倍 を 第 7 行か ら 引 く 。 
計算 終了 時 の ね 。 あ 。…。 6。 の 解 が ma、 ys, wa に な っ て いる 。 
(プロ グラ ム 例 ) (入力 の 部 分 は 前 の ペー ジ と 同じ な の で 省略 ) 
110 FEOR K=1 TO KR 


120 ET P=A(K,K) 
130 FOR J=K TO NRN 
140 抽選 や A(。J) テ AUE。J)/P 
150 NEXT 
160 LET B(K)=B(K)/P 
170 FOR 1 エ =1 TO N 
180 TFP エニ =K THEN 240 
190 LT Q= ニ A(T,K) 
200 FOR J=K TO KN 
210 LET A(T,J)=A(T, 了 ) 一 Q*A(K, 
220 NEXT (前 行 の 続き )| J ) 
230 ET B(1I)=B(1I)--Q*B(K) ーー 
240 NEXT 1 
250 NEXT KK 
260 FOR 1=1 TO 
270 PRINT "X( リ "iTi!)= リ iiB(1I) 
280 NEXT 1 
290 END 
文献) 連立 1 次 方 程 式 の 計算 技法 に 関し て は 下記 の 文献 が 詳し い 。 
1) 戸川 隼人 : マト リク ス の 数 値 計算 、 オ ー ム 社 (1971) 
2) ウェ スト レイ ク ( 戸 川 訳 ) : 線形 計算 ハン ド プ ブック, 培風館 (1972) 
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4.8 逆 行列 


定 義 正方 行列 を 4 単位 行列 を 7/ と する と き , 4 メー7 に な る 
行列 を 4 の 逆行 列 と いい 4-! て 表す 。 
計算 法 (原理 ) 逆行 列 を 求め る に は 要する に 


の の 2 "の iz ギ パロ 12 0 の " ズ ュ z 1 0 
421 。 422 。 "| の 2 21 。 え 22 "2 思 0 
2 の ヵ の 22 "の イー イル z2 イカ 0 0 … 1 


に な る よう な ァ *。( 計 チー1. 2, …。 ヵ ) を 求め あれ ば よく , それ に は 連立 1 
次 方 程 式 4 ェ ) テ 6 (* は だ の 第 了 列 、 ey は 7 の 第 7 列 ) を 7= 
1,。 2, …。 2 に つい て 解け ば よい 。 

計算 法 (実際 ) 連立 1 次 方 程 式 の 解法 と し て は 掃 出 法 が 簡単 で よ 
い (連立 方 程 式 を 1 題 解く だ け な ら ば ガウ ス の 消去 法 の 方 が 速い が , 逆 
行列 の 計算 の 際 に は 掃 出 法 で も ガウ ス の 消去 法 で も 計算 時 間 は 同 ト に な 
る 手順 は まず 





の の 2 "の | 1 0 … 0O 第 1 行 
の 21 の 22。 … zz 10 1 … 0O 第 2 行 
の z ヵ 」。 の z2 "の の zz 10 0 … 1 第 ヵ 行 








と いう 表 を 作り 、 
を 1 2,。…, の 順に 
第 ん 行 を Za で 割る 
2 三 1, 2, …, に 対し (た だ し ? ん を 除く ) 
ー ト 一 第 7 行か ら 第 を 行 の g,。 倍 を 引く 。 
と いう 計算 を する 。 そ の 終了 時 点 に , 表 の 左 半分 は 7 に な り , 右 半分 は 
4-! に な っ て いる 。 
記憶 場所 の 節約 上 記 の 計算 の 中 間 結 果 は , 第 ん 段階 の 開始 時 点 に 
つい て 考え て みる と , 配列 A の 第 ん 列 より 左側 は 単位 行列 と 同じ 形 に な 
っ て いて , 実際 に は も は や 計算 の 必要 は な く , また 表 の 右 半 分 の 第 を 列 
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より 右側 は , 実質 的 な 計算 は まだ 行なわ れ て お ら ず , 単位 行列 の 形 が そ 
の まま 残っ て いる 。 そこで, この よう に 内 容 が 自明 な 部 分 を 除き , 配列 
A の 第 ん 列 よ り 左 に は 4-! を 入れ る よう に すれ ば 記憶 場所 が 節約 され , 
計算 時 間 も 半 分 で 済む 。 次 の プロ グラ ム は , そ の よう な 方 式 を と っ て いる 。 


[プロ グラ ム 例 ] 

10 DIM A(20,20) 

20 1INPUT N デー タ 入 力 
30 FOR エ =1 TO RN 

40 FEOR J=1 TO RN 

5 0 PRTINT WA( サ >:T エ TE0 0<Ts WW)『: 

60 INPUT A(T, 了 ) 

70 NEXT J 

80 NEXT 1 

90 FOR K=1 TO KN ここ か ら 逆 行列 の 計算 
100 LET P=A(K,K) 

110 LET A(K,K)=1 
1 20 FEOR J ゴ =1 TO KRN 

130 LT A(, 了 )=A(K,J ) ノ P 
140 NEXT J 

150 FEOR エ =1 TO KRN 

160 TE エ =K THEN 220 

170 LET Q=A(T,K) 

180 LET A(T,K)=O0O 

190 FOR J=1 TO 

200 A(T,J)=A(T, 了 J) 一 Q*A(K,J 了 ) 
210 NEXT 
220 NEXT 1 

230 NEXT 人 K 
240 FOR 1 エ =1 TO RNN 千 果 の 出力 
250 FOR J=1 TO KRN 

260 PRTINT WA( リ サリ: エ Ti 0 サリ に 0)= ニ 0 A( 
270 NEXT J 了 (前 行 の 続き ) | T。J ) 


280 NEXT 1 
290 END 
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【4.7 節 と 4.8 節 の 応用 問題 】 
1 (連立 1 次 方 程 式 ) 
次 の 連立 1 次 方 程 式 を 解け 。 
36+ 十 30y 十 24z 三 3 
(1i) 30+ 十 34y 十 26z =4 
24 ヶ 十 26y 十 21z=4 
6 ヶ 十 2y 十 3z= テ 5 
( ii ) 18r 十 14 y 十 11 z =21 
24* 十 20y 十 16z =30 
2 (逆行 列 ) 
次 の 行列 の 逆行 列 を 求め よ 。 
2 4 6 
(1i) 3 8 7 
5 7 21 
68 一 41 一 17 10 
ー41 25 10 一 6 
ー17 10 5 一 3 


間 一條 一 き 2 
1 
| ある の る 
(所 ) 11 2 38 8 
1 2 34 4 
12345 
3 (行列 式 ) 


z 行 z 列 の 行列 式 の 値 を 計算 する プロ グラ ム を 作れ 。 

(ヒン ト ) Gauss の 消去 法 の 計算 を し て , その ピボット を 全部 掛け 合 
わせ れ ば よい (た だ し , 行 の 交換 を し た 場合 は , 変換 の た びに 待 号 を 逆 
に する )。 
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4 (ブリ ッ ジ 回 路 ) 
右 図 の 回 路 に 電流 か ら 70 
アン ペア の 電流 を 図示 の 点 
に 供給 し た と き の 各 点 の 電 
位 @ お よび 各 素 子 に 流れ る 
電流 7 を 計算 する プロ グラ 
ム を 作れ 。 

(ヒン ト ) Ohm の 法則 
より 





デーs 

272 王 gー@ 

es 一 @s (1) 
ん に ゴク 

ss 三 @s 

また Kirchhoff の 第 1 法則 より 

2 一 ムー 三 0 

一 一 4 デ 0 (2) 
2 十 一 5 三 0 


が 成立 する 。 式 (1) を 各 7 に つい て 解い て (2) に 代入 すれ ば 








1 1 1 答 
が 邦 」 如 2 婦 
1 1 1 
ー 十 ピ 定 ー る 2 = 0 
1 宮 」。 7 が 3 7 3 
1 1 1 1 1 
選 選 1 


必 が る 。 デー グ と し て 

如 如 > の 如 4 て 5 20 
を 読み , 連立 方 程 式 の 係数 を 計算 し , 方 程 式 を 解き , 結果 を 式 ( 1 ) に 入 
れ て 電流 を 計算 し て 出力 すれ ば よい 。 
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4.9 固有 値 , 固有 ベク トル 


与え られ た 正方 行列 4 に 対し 
コ ャ テ Ar た だ し ェ キ 0 

を 満た す ベ クト ル x (固有 ベク トル と いう ) と スカ ラー 4 (固有 値 と い 
う ) を 求め る 問題 を 、 行列 の 固有 値 問題 と いう 。 こ の よう な 計算 は , 固 
有 振 動 数 の 計算 や 主 成分 分 析 (統計 解析 の 一 手法 ) な どの 際 に 必要 に な 
る 。 有 か 実 対称 行列 の 場合 と そう で な い 場 合 と で は , 問題 の 性 質 も 解法 
も か な り 異 な る 。 応 用 で は 実 対称 の 場合 が 多く , 実 対称 な ら ば 計算 が 簡 
単 な の で , 以下 で は 実 対称 行列 の 固有 値 問題 の 解法 に つい て 説明 する 。 

Jacobi 法 実 対称 行列 の 固有 値 問題 の 解法 は 数 多く ある が , 最も 簡 
単 で 、 そ の わり に 能率 が よく , 安全 確実 な の は Jacobi 法 で ある 。 
(原理 〕 実 対称 行列 4 の 非 対 角 要 素 の 一 つ を Zz。 と し , 


、、 ン 対 角 上 上 に 1 を 並べ る 


- き 、 ー / 列 日 た だ し , 
/4 ニ 1 の ー ラ arctan 一 2 
-$ と 、 | 一 4 絢 上 6 
他 の 部 分 は 0 へ c 三 cos の 
M 4 s 三 tan の 
ヵ 行 目 7 行 目 


と いう) 行列 7 を 作っ て , 新 4= ニ / ル 74/7T と いう 変換 を する と. 

新 zz 三 0 新 z ぁ 三 0 に な る 。 

新人 4 は や は り 実 対称 で , 4 と 同じ 固有 値 を も つ 。 
と いう 性 質 が ある 。 こ の よう な 変換 を くりかえし て , 非 対 角 要 素 を すべ 
て 0 (また は 非常 に 小さ な 値 ) に すれ ば , その と き 固 有 値 は 新 4 の 対 角 
上 に 並ぶ 。 ま た 固有 ベク トル は , 変換 に 用 いた /7T の 積 

テル 衝 47 あ ュ …477 7 

の 各 列 と し て 得 ら れる 。 か ヵ , g の 選び か た は いろ いろ ある が , 右 の プロ 
グラ ム で は 「 そ の 段階 の 非 対 角 要 素 の 中 で 絶対 値 最大 の も の を gp。 と す 
る 」 と いう 方 式 (古典 的 方 法 ) を 用 いて いる 。 こ の 方 法 は , 最大 値 を き 
が す の に 手間 が か か る が , 必要 な 反復 回 数 は 最も 少な い 。 
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〔 計 算 手順 ] レ =/ (単位 行列 ) と し て 出発 し 、 す べ て の 非 対 角 要素 
の 絶対 値 が 十分 小さ く な る まで , 下記 の 手続 き を くり か えす 。 

1) ヵ , 9 を 決め る (前 ペー ジ 最 後 の 説明 参照 ) 





_ 1 22pg た だ し gp 三 gg ig 
2) の 9 ニテ arctan アー か 3 
3) c 三 cos の 三 tan の 


4) 新 4= ニ 4747「 の 乗算 を 行なう 。 実 際 に は 第 ヵ 行 、 第 9 行 、 第 か 列 、 
第 7 列 の 計算 だ け を すれ ば 十分 で ある ( 他 の 部 分 は 不要 )。 

5) 新 リ ニレ 7 の 乗算 を 行なう 。 実際 に は 第 ヵ 列 と 第 7 列 の 計算 だ 
け を すれ ば 十分 で ある ( 他 の 部 分 は 不要 )。 

[プロ グラ ム 例 〕 


10 DIM A(10,10),V(10,10) 
20 INPUT KN 


30 POR T=1 TO 行列 4 を 読み 込む 
4 0 FEOR ゴ =1 TO KN 

5 0 RETW 下 AA( て エ 4Js WT リーW: 

6 0 INPUT A(1I, 了 ) 

7 0 NEXT 了 

80 NEXT 1 

90 FEOR ユエ =1 TO KR 単位 行列 を に 入れ る 
100 EOR ゴ =1 TO 

110 LET V(TI, 了 J)=0 

員 大 0 NEXT 了 

130 ET V(T,T ) = テ ュ 反復 打ち 切り 回 数 


140 REX 呈 T 1 

150 FOR K=1 TO 1000 一 
160 葉 選 T P= テ 1 最大 値 を さがす 
170 LET Q= テ 2 

180 FOR 1 エ =] TO RN-1 





190 FEOR ゴ = ニ エ + オ 1] TO KR 
200 TE ABS(A( エ T,J 了 J) ) く =ABS(A(P,Q) ) 
(前 行 の 続き ) THEN 230 


る 210 選 T P= テ エ 
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る る 20 
る 々 30 
る 40 
2Z50 
260 
270 
280 
2Z90 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
500 
510 
520 
530 
540 
550 
560 
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LET Q= 了 
NEXT J 
NEX 呈 T 1 
TE ABS(A(P,Q) ) く 0.0001 THEN 500 


TE B=O THEN 300 


LET B=A(P,P) 一 A(Q,Q) 『 
| 
LET T= ニ 0.5*ATN(2*A(P,Q) ノ B) | 


GOTO 310 ーー の の 計算 
LBT リー ニ 38 .14159/ ノ 4 ] 
LET CO=CO8(T) * 一 


ET 8=SIN(T) 

FOR J ゴ =1 TO KN 
ET A1=A(P, 了 ) 
LT A2=A(Q, 了 ) 


ET A(P, 二 ) ニ CO*A1 十 SB*A2 
ET A(Q, 了 J) ニ ーS*A1 十 C*A2 
NEXT 了 


FOR エ =1 TO NRN 
LT A1=A(T,P) 
世 叩 A2= テ A(1T,Q) 
ET A( エ T,P) ニ CO*A1 十 8*AZ 
LBT A(1T,Q) ニ = ニー8*A1 十 O*A2 
LERT V ツ 1 ユ = ニ V(T,P) 
LET V2=V(1I,Q) 


ET V(T,P)= ニ O*V1 十 SB*V2 
LET V(T,Q ) ニ ー8S*V1 十 O*V2Z 
NEX 呈 T 1 
NEXT KK 


FOR J=1 TO 
PRINT "EEV="W。A(J, け ) 
FOR エ =1 TO RNN 
PRINT V(1r,~ 了 ) 
NEXT 1 
NEXT J 
END 
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【4.9 節 の 応用 問題 】 

1 (プロ グラ ム ・ テ スト の た め の 問 題 ) 

次 の 行列 の 固有 値 と 固有 ベク トル を 求め よ 。 





5 4 1 1 
有 4 5 1 1 
1 1 4 2 
1 1 2 4 
1111 一 1089 891 909 
_ ー1089 1111 一 909 891 
SN 891 一 909 111l1 1089 
909 891 -1089 1111 
2  ( 弦 の 振動 ) 
弦 の 振動 の 方 程 式 は 、 無 次 元 化す る と 次 の 形 に 書け る 。 
2 
- 倫 -* 


境界 条件 (0)=z(1)=0 
この 微分 方 程 式 の 左辺 を 中 心 差分 で 近似 すれ ば 


ー に ュ 十 2 一 は 





ー 4 (7 1。 2,。 …。 タ 一 1) 


グ x“ 
た だ し , z 三 gw(*j) 三 (7/ ヵ ) , メデ 1/ ヵ 
行列 の 形 で 書け ば 
。 富 2n 41 
呈 引 み 。 呈 中 262 262 
王 過 2 一 1 263 ーー41| 2 
空白 の 所 は 0 一 1 交 24-1 2 の ヵ -1 


と な る 。z を 読み 込み 、 上 記 の 行列 を 作り , 165 ペー ジ の プロ グラ ム を 
利用 し て 固有 値 。 固有 ベク トル を 計算 し て 出力 する プロ グラ ム を 作れ 。 
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3 (ねじり 振動 ) 
1 2 3 


ね 
7 


上 の 図 の よう な 氷 の , ね じ り 振 動 の 固有 振動 数 を 計算 する プロ グラ ム 
を 作れ 。 た だ し , 軸 ま わり の 慣性 モー メン ト 万 , 太 , 7。 お よび ( 軸 の ね 
じ り に 関す る ) ば ね 定数 , は デー タ と し て 入力 する も の と する 。 
軸 の 両端 は 回 転 に つい て は 拘束 され て いな いも の と する 。 
(ヒン ト ) 円 板 1, 2 3 の 回 転 角 を ez, @s と すれ ば 運動 方 程 式 は 
みん (一 の ) 
の > 一 ね (みみ ー の ) 十 (gs 一 ) 
ム の (gw 一 の) 
この 解 を (の gzsin 7 ( 7 三 1, 2, 3) と 仮定 し て 代入 すれ ば 
ー が ん (2 一 ) 
ー ゲ な の 三 ム (2 一 の ) 十 (2。 一 6 ) 








ー ゲ ね 十 ( 2 一 23 ) 
Re 
が 4 ュー カ 2」 Y2 デ 2 3 三 23 
と 置い て 整理 すれ ば , 行列 の 固有 値 問題 
に Im 0 蛇 て 
ヵ 
ね + を gg | | | 
毛 訪 ヵ る 祖 誠 上 1 
0 。 名 - ィ 
生 ム 3 イ 3 


と な る 。 入力 デー タ を も と に , この 行列 を 作り , 165 ペー ジ の プロ グラ ム 
で 4 を 求め , 固有 振動 数 = 4/(2z) を 計算 し て 出力 すれ ば よい 。 


付録 BASIC か ら FORTRAN へ 


BASIC で プロ グラ ミン グ を 習っ た 人 が , 研究 や 仕事 の 都合 に より 
FORTRAN を 使用 し な けれ ば な ら な く な る 場合 が よく ある 。 その 場合 。 
FORTRAN の 教科 書 を 勉強 すれ ば , も ちろ ん すぐ 書け る よう に な る で 
あろ う が , 既に BASIC を 知っ て いる の だ か ら , も っ と 近道 の 勉強 法 が 
ある は ず で ある 。 以 下 は , その よう な 近道 の 一 つの 試み で ある 。 


A.] 概 要 


BASIC と FORTRAN は よく 似 て いる 。 細 か い 仕 様 は 違う けれ ども 
基本 は だ いた い 同 じ で ある 。 た と える ば , 基本 BASIC の 主 な 文 は 
FORTRAN の 文 と 次 の よう に 対応 し て いる 。 





基本 BASIC の 文 FORTRAN の 文 説 明 
LET 文 代入 文 174 ペー ジ 
FOR-NEXT 文 DO 文 176 
IE 文 IF 文 175 
ON 文 計算 弄 GOTO 文 175 
GOTO 文 GOTO 文 175 
GOSUB 文 CALL 文 179 
RETURN 文 RETURN 文 178 
IUPUT 文 READ 文 180 
PRINT 文 WRITE 文 180 
REM 文 注釈 行 174 
DIM 文 DIMENSION 文 172 
STOP 文 STOP 文 184 
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A.2 デー タ の 弄 


BASIC に は , デー タ の 型 と し て , 数 値 型 と 文字 列 型 が あっ た 。 そ れ 
に 対し , FORTRAN に は 次 の よう な 各種 の 型 が ある 。 
称 数 型 実数 弄 倍 精 度 実数 弄 複素 数 型 
論理 弄 文字 型 
整数 型 と 実数 型 の 違い 整数 型 と いう の は 数 値 を 固定 小数 点 の 整数 
の 形 で 扱う 型 。 実数 型 と いう の は 数 値 を 浮動 小数 点 の 形 で 扱う 型 の こと 
で ある 。 前 者 は 計算 が 簡単 だ どか ら 処理 が 速い 。 こ と に 添字 (番地 の 修飾 ) 
に 用 いる に は 整数 型 が 適し て いる 。 後者 は 処理 に 時 間 が か か る けれ ども 
数 値 計算 に は 便利 で ある 。 
か ら , FORTRAN の 実数 更に 相当 する 。 基 本 BASIC て 葛 強 し た 人 に 
と っ て , 整数 型 は 全く 新しい も の で あり , また FORTRAN の 文法 に お 
いて 重要 な も の で ある か ら , これ を 重点 的 に 勉強 する 必要 が ある 。 
各 数 型 で 特に 注意 を 要する の は 次 の 2 点 で ある 。 
( 例 ) 2/ ノ 3 の 結果 は 0 
2) 表現 で きる 数 値 の 範 胃 が せ まい (普通 , 10 桁 て らい まで ) 
文字 型 BASIC の 文字 列 型 に 相当 する も の は , FORTRAN 77 に 
は ある けれ ど , 普通 の FORTRAN (水準 7 0 0 0) に は な い 。 普 通 の 
FORTRAN の 文字 型 は 、 一 つの 変数 に 文字 を 4 字 し か 入れ る こと が で 
きず , 代入 や 比較 も 許さ れず ,、 BASIC の 文字 列 型 より は る か に 不便 な 
も の で ある 。 
その 他 倍 精 度 実数 型 は 、 数 値 を 倍 精度 浮動 小数 点 の 形 で 扱 う 型 
複素 数 型 は 、 実 数 型 の 値 を 二 つ 組 に し て 実数 部 虚数 部 を 表し , 複素 数 
の 演算 を 行なう 型 で ある 。 論理 型 は 論理 代数 (Bool 代数 ) の 計算 を 
行なう 型 で ある 。 
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A.3 変数 名 


6 字 ま で の 英 数 字 の 組合 せ (た だ し 先頭 は 英字 に 限る ) を 変数 名 と し 
て 用 いる こと が で きる 。 長 い 変 数 名 を 使え る か ら , な る べく 〈 物 理 的 意味 
に 即 し た 名 前 を 用 いて , 読み 易い プロ グラ ム を 書く と よい 。 

( 例 ) TAKASA  HABA  H2SO4 

変数 名 と 型 の 関係 FORTRAN で は , 型 官 言 を し な いで 変数 名 を 
用 いた 場合 、 変数 名 の 第 1 字 目 ( 頭 文 字 ) が 

I, 」, K, L, M, N な ら ば 整数 弄 

上 記 以 外 (AH, 0 て ZZ) な ら ば 実数 型 
と な る 。 型 官 言 を すれ ば , 上 記 に か か わら ず , 自由 に 名 前 を つけ る こと 
が で きる が , うっ か り 型 を 間違え た り 型 宣言 を 忘れ た りす る と 了 困る か ら , 
な る べく 上 記 の 原則 を 守り (こと に 1 字 だ け を 用 いる 場合 ), 例 外 は 最小 
限 で 済ま せる よう に する こと を 心掛け る と よい 。 

型 宣 言 の 書 きか た 上 記 以 外 の 場合 は 型 官 言 が 必要 で ある 。 型 管 言 
は 次 の よう な 宮 言 文 に よる 。 富 言 文 は プロ グラ ム の 冒頭 に 置く 。 





標準 的 な 書き か た 別 の 書き か た ' 
整数 弄 TINTEGER この 石 に 変数 名 や TRNTTEGER*4 
ご 配列 名 を コン マ で 
実数 型 REAL 人 
倍 精度 実数 型 DOUBLEE PRECTSTON REAL*8 
複素 数 思 COMPLEX COMPLEX*8 
論理 夫 LOGTOA エ L LOGTOAL*4 
文字 弄 (な し ) CHARAOCTER 


( 例 ) REAL NAGASA,LAMBDA 
IMPLICIT 文 ある 文字 で 始ま る 変数 名 を すべ て 同型 に する 場合 
に は , 次 の よう に 書く こと も で きる 「『。 

IMPLTOITT 型 名 (先頭 の 文字 の 列 ) 

( 例 ) IMPLTIOCTIT OOMPLEX (,OC,W) 





† これ は 使用 で きる 機種 と 使用 で き な い 機種 が ある 。 
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A.4 配 列 


配列 に 関す る 機能 は , 基本 的 に は BASIC と だ いた い 同 じ で ある 。 す 
な わ ち , 宣言 は 
DIMENSTION 配列 名 (寸法 ) , 配 列 名 (寸法 ) ,… 
の 形 で 書き , 
配列 名 ( 添 子 ) 
の 形 で 式 の 中 な ど で て 引用 する こと が で きる 。 次元 は , 普通 , 3 次 元 まで 
許さ れる 。 
注意 事項 
1) 添字 は 1 か ら 始 まる 。BASIC と 違っ て 添字 0 が 使え な い '。 
ど の の 十 C のり 一 C 
C 玉 の の 沙 の 士 の C 来 の 一 と 
た だ し , c は 待 号 な し の 整数 値 。 ぃ は 整数 型 の 変数 名 で ある 。 
( 例 ) A( エ + オ る ) A ( 3※ ゴ ー1 ) な ど は 良い が 
A( 2 十 1 ) A(J*S3) な ど は 許さ れ な い 。 
3) BASIC だ と , 「10 行 10 列 以下 な ら ば 配列 宣言 を 省略 し て も よい | 
と いう 特例 が あっ た が , FORTRAN で は それ が な く , 常に 宣言 を 
必要 と する 。 
覚え て お け ば 便利 な こと 〕 
1) 型 定 言 と 配列 宣言 を まとめ て 書く こと が で きる 。 
( 例 ) COMPLEX A(10,10) ,%(8) 
2) 共通 領域 (後述 ) の 宣言 と 配列 宣言 を 共用 する こと も で きる 。 
( 例 ) COMMON P(3),G 





† FORTRAN 77 や , 一 部 の 拡張 FORTRAN で は , これ ら の 制限 は 緩 
和 さ れ て いる 。 
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A.5 式 


式 の 書き か た は BASIC と だ いた い 同 じ で ある 。 た だ し 下記 の 点 に 注 
意 す る こと 。 
1) べき 乗 は 記号 **※ で 表す 。 
( 例 ) *" は X**Y 
2) 定数 の 型 は 次 の よう に し て 区 別 さ れる 。 
小数 点 も 指数 部 も つい て な い 数 は 整数 弄 
小数 点 ま た は 指数 記号 尼 E が つい て いれ ば 実数 弄 
指数 記号 D) が つい て いれ ば 倍 精 度 実数 型 
( 実数 部 , 虚数 部 ) の 形 を し て いれ ば 複素 数 型 
.TRU 選 . お よび .FALSEE. は 論理 型 
( 例 ) 1 る る 3 は 整数 電 
1238.45 や 1E6 は 実数 弄 
1 .2D-ー3 や 1D6 は 倍 精 度 実数 型 
(1 る 24.8。4.。5) は 複素 数 弄 
な お , 1 思 6 お よび 1D6 は どちら も 1 ベ X10? を 表す 。 ま た 
1 .2Dー3 は 1.2 X 10-? の 意味 。 
3) 混合 演算 の 禁止 一 つの 式 の 中 に 、 型 の 異な る 変数 を まぜ て 書く 
こと (これ を 混合 演算 と いう ) は 原則 と し て 人 禁止 きれ て いる 「。 
( 例 ) 1 が 整数 型 、R が 実数 型 の 場合 , 
T 十 R T*R 
と 書く と 誤り リ に な る 。 ま た , 定数 1 は 整数 型 」1.0 は 実数 型 だ か ら 
1 十 R は 誤 リ 。 1.0+R と 書け ば よい 。 
数 部 を つけ る 必要 が ある 。 FORTRAN 77 や ー 部 の 拡張 FORT RA 
N で は 混合 演算 が 許さ れ て いる が , 混合 演算 を 行なう と 型 の 変換 の 
た め に 計算 時 間 が 増加 する か ら , な る べく 避け る 方 が 賢明 で ある 。 





† た だ し , * ヶ の ぇ が 実数 型 、 ゅ が 整数 型 と いう の は 認め られ て いる 。 
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A.6 文 


文 番 号 FORTRAN で は , 各 文 に 行 番号 を つけ る 必要 が な い 。 
BASIC と 同じ よう に し て も 誤り で は な い が , むだ で ある 。FORTRAN 
で は , GOTO 文 の 行先 の よう に , 必要 な 文 に だ け 番 号 を つけ る 。 こ れ を 
文 番号 と いう 。 文 番号 は 小 一 大 の 順に つけ る 必要 は な く , 実行 順序 と も 
関係 が な い 。 

コー ディ ング ・ シ ー ト の 書き か た FORTRAN の 文 は , 書く 位置 
が 次 の よう に 制限 され て いる 。 


各行 の 第 1 字 目 は 「 注 釈 か 耕 か ] を 表す 。 こ こ が C な ら ば 注釈 。 
文 番号 は 第 1 字 晶 一 第 5 字 目 に 書く 。 
第 6 字 目 は 「 前 の 行 の 続き か 否 か ] を 表す 。 こ こ が 空 白 
また は 0 な ら ば 「 文 の 第 1 行 目 ] で ある 。 
文 の 本 体 は 第 7 字 目 一 第 7 2 字 目 に 書く 。 


トニ ーーー』 に ーーーーーーーーーー 文 の 本 体 





( 例 ) 
C| *** ネ |** EEXAMPME * ネ ネネ ネネ キネ 
1 0| |A= テ B 十 A ニ B+C の 音 味 
& C ーー 
STOP 
内 、/ 代 大 


FORTRAN の 代入 文 は , BASIC の 代入 文 の LET を 省 い た も の と 思 
えば よい 。 す な わ ち , = の 右 に 書か れ た 式 の 値 が 計算 され て , その 結果 
が = の 左 に 書か れ た 変数 に 代入 され る 。 

= の 左 と 右 の 型 は 一 致し て いな く て も よい 。 一 致し て いな い 場 合 は , 
右辺 の 計算 結果 を 左辺 の 変数 の 型 に 変換 し て か ら 代 入 す る 。 実数 型 や 倍 
精度 実数 型 の 値 を 整数 型 に 変換 する と き は , 小数 点 以下 が 切り 捨て られ 
る 。 
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A.8 GOTO 文 


GOTO 文 BASIC と 全く 同じ 。 す な わ ち 
GOTO 行先 の 文 番 号 
と 書く 。 な お , GOTO の か わり に 単に GO と 書い て も よい 。 
計算 型 GOTO 文 次 の 形 で 書く 。 
GOTO (行先 , 行先 。。…, 行先 ヵ ) , 表 
これ は BASIC の ON 文 に 相当 する も の で , K の 値 が 1、2,…, z の 
と き , それ ぞ れ 行先 , 行先 z、… 行先 。 に 進む 。 


A.9 E 文 


これ に は 算術 IF 文 と 論理 IF 文 の 2 種類 が ある 。 
算術 IF 文 これ は 次 の 形式 で 書く 。 
TE (算術 式 ) 行先 」, 行先 。 , 行先 s 
算術 式 の 値 が 負 な ら ば 行先 + へ , 0 な ら ば 行先 z へ , 正 な ら ば 行先 3 へ 進む 。 
( 例 ) IE(X-1.0) 20,30,30 
* く 1 な ら ば 文 20 へ , * 1 な ら ば 文 30 へ 進む 。 
論理 IF 文 、 共 本 形 は 
IF (算術 式 『 え 引け 算術 式 ) その 場合 に 実行 すべ き 文 
で , その 場合 の 等 号 、 不 等 号 は 次 の よう に 表す 。 
数 学 記号 く ミ = > 三 
FORTRAN .LT. .LE. .GE. .GT. .EQ. .NE. 
な お , 一 般 に は ( ) 内 に , 
論理 変数 
論理 式 
等 式 や 不等式 を .AND. や .OR. で 結ん だ も の 
を 書く こと が で きる 。 
[注意 〕) 比較 の た め の 等 号 や 不 等 の 左辺 と 右辺 の 型 は 一 致し て いな け 
れ ば な ら な い 。 た と くそ ば, TE( メ ー1 ) … は 誤り 。 
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A.10 Do 文 


これ は BASIC の FOR 文 に 相当 する も の で , 次 の 形式 で 書く 。 
DO 端末 文 番号 制御 変数 名 三 始 値 , 終値 , 増分 
ここ で 端末 文 番号 と いう の は ,、 くり か を え し 部 分 の 最後 の 文 (これ を 端末 
文 と いう ) の 文 番号 で ある 。 た と えば 
DO 80 エニ 1 の 7。8 


この 部 分 が 反復 され る 
30| |A4=B+O 

端末 文 は 上記 の よう に 代入 文 そ の 他 で あっ て も よい が , BASIC の 
NEXT 文 の よう に , 端末 文 を 独立 させ て お く 方 が 明快 な の で , 
| 端 末 文 番号 | |C0NTTNUEE 

と いう 文 を 用 いる の が よい と され て いる 。 

(注意 ) 制 件 数 名 は 数 昌 に 限る 。 銘 父 休 。 電 分 も 雪 昌 で 
そこ に は 式 を 南 け な い 。 ま た 0 人 負 の 績 仙 、 負 の 電 分 は 許さ れ な い 。 
( 例 ) | jpb6 1oo gk=o,1o 


DO 200 エエ =10,1, 一 1 いずれ も エラ ー 
DO 300 M=1 ,N+1 に な る 。 


も う 一 つ 重要 な 注意 は 指定 きれ た 反復 を 多才 終っ て 負 来 玉 の 次 の 文 に 


と 3 


進ん だ と き 。 制御 数 の 値 は 不定 に な る (で た ら め の 値 に な る か も し れ 
な い ) と いう こと で ある 。 た と えば 
DO 50 1r=1,10 


50| ICONTINUE 
の 場合 反復 終了 後 は I ニ 10 に な る と 思っ て いる 人 が よく いる が , そ 
れ は 誤 リ で, さり と て 1 = テ 11 に な る わけ で も な く , 仮り に その 規則 を 
調べ て も , 他 機 種 の 扱い は また 違っ て いる か も し れ な い 。 
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A. 1 1 組み 込み 関数 


177 


FORTRAN て 使用 で きる 組み 込み 関数 ' は , 機種 に よっ て 多少 異な る 
が , 規格 (JIS の 水準 7000)0 で は 次 の よう に な っ て いる "8 











機 能 実数 型 倍 精 度 実数 型 整数 型 
@ そ EXP(X) DEXP 一 
log。* ALOG(X) DLOG ーー 
logio * ALOG10(XX) DLOG10 
Sin * SIN(X) DSIR 
COS COS(X) DCOS ーー 
tanh * TANH(X) ーー ーー 
ツテ SQRT(X) DSQRT ーー 
arctan * ATAN(X) DATAN ーー ニテ 
arctan (x/ ) ATAN2(X,Y) ーー ーー 一 
* を y で 割っ た 余り AMOD(X,Y) DMOD MOD 
|x| ABS(X) DABS TABS 
小数 点 以下 切り 捨て ATINT(X) DIRNTT TNT 
max (7 5.…) AMAX0( エ 1 , T2,…) = テー MAXO0 
max (ri,r2…) AMAX1(XX1 ,X2 , …) DMAX1 ユ MAX1 
min (カカ 、 5. …) AMTINO( エ 1 ,T2 ,」…) ーー MINO 
min(xi、 xs, …) AMTIN1(X1 ,X2 ,…) DMIRN1 MIRN1 
符号!!" SLIGN(X,Y) DSIGRN TSTGRN 
ャ ーmin (*,y) DIM(X,Y) TDIM(X,Y) 
実数 型 を 整数 型 に 変換 TET1 双 実数 部 REAL 
称 数 型 を 実数 型 に 変換 FLOAT 虚数 部 ATMAG 


SNGL 
DBLE 


単 精度 化 
倍 精 度 化 





共役 複素 数 CONJG 
複素 数 化 CMPLX(X,.Y) 


† 文法 的 に は 「 組 み 込み 関数 ] と 「 基 本 外部 関数 ] に 分 か れる が , 普 誕 
の 利用 者 に と っ て は 同じ こと 。 要 する に 「 処 理系 が 用 意 し て くれ た 関数 」。 
慎 この ほか に 複素 数 型 の CBXP,CLOG,CSIN,OCCOS,O 


SQRT,CABS が ある 。 


和 サ 1 + の 絶対 値 に y の 待 号 を つけ た も の 。 
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A.12 サブ プル ー チ ン 


サブ ルー チン の 書き か た , 使い か た は , BASIC の 場合 と 著しく 異な 
る 。 す な わ ち , FORTRAN の サブルーチン は 
独立 し た プロ グラ ム で ある (「 プ ログ ラッ 単位 ] と いう ) 
ーー し た が っ て , 変数 名 や 文 番 号 は , 呼び 出し 側 の プロ グラ ム や 
他 の サブルーチン と 独立 で あり , 単独 に コン パイ ル で きる 。 
呼び 出し の 際 の 識別 は 「 サ プ ブルー チン 名 」 に よる 。 
デー タ の 受け 渡し は , すべ て 「 引 数 ] に よっ て 行なう )。 
と いう 文法 に な っ て いる 。 そ の た め 。 大 規模 な プロ グラ ム を 何人 か で 分 
け て 作る 場合 に 一 つ 一 つ 独 立 に 作る こと が で き , また ーー つ の サ プ ブルー チ 
ン を いろ いろ な プロ グラ ム に 組み 込む に も 便利 で ある 。 
サ プ ル ー チ ン の 書き か た サブルーチン は 次 の 形式 で 書く 。 
SUBROUTTN 選 サブ ルー チン 名 ( 引数 の 列 ) 
処理 の 内 容 を 記述 
する プロ グラ ム 
END 
サ プ ル ー チ ン 名 は 6 字 以 内 の 英 数 字 で 先頭 は 英字 と する 。「 引 数 の 列 」 
と は , 変数 名 や 配列 名 を コン マ で 区 切っ て 並べ た も の 。 入力 用 と 出力 用 
の 引数 の 区 別 は な く , 入出 力 両用 (すなわち , 値 を 変更 し て 返す ) も 許 
され る 。 
出口 に は RETURRN と 書く (これ は BASIC と 同じ )。 
( 例 ) 極座標 ヶ 、 の の 値 を 直交 座標 々 ,、 ッ に 変換 する サブ ルー チン を 
作っ て みよ う 。 サ プ ブルー チン 名 は HENKAN と し , ヶ , 9, *, ッ を R, 
区 Y で 表す こと に すれ ば , 次 の よう に な る 。 
SUBROUTINE HENKAN(R,T,X,Y) 
メ =R*COS(T) 
Y=R*SIN(T) 


RETURRN 
END 
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サ プ ブルー チン の 呼び 出し か た 。 サブ ルー チン を 呼び 出す に は CALL 
文 を 用 いる 。 こ れ は 次 の 形式 で 書く 。 
CALL サブ ルー チン 名 (引数 の 列 ) 
( 例 ) いま 作っ た サブ ルー チン HENKAN を 呼び 出し て , ヶ テ 3, 
の =0.1 (ラジ アン ) を r, y に 変換 する に は 
CALL HENKAN(3.0,0.1,X,Y) 
と すれ ば よい 。 こ の よう に , CALL 文 の 引数 で サブ ルー チン に 値 を 引き 
渡す だ け の も の に は , 定数 や 式 を 書い て も よい 。 
サブ ルー チン と 呼び 出し 側 の プロ グラ ム と で は 変数 名 が 独立 で ある か 
ら , 引数 の 名 前 が 一 致す る 必要 な い 。 引 数 は 名 前 の 一 致 に よっ て 結合 さ 
れる の で は な く , 順 庁 に 従っ て 結合 され る 。 


( 例 ) CALL HENKAN(RR,THETA,X1,X2) 


SUBROUTINE HENKAN(R,T,X,Y) 
整合 寸法 配列 を 引数 と し て 受け 渡す 場合 , 呼び 出し 側 の プロ グラ 
ム で 宣言 し た 寸法 と , 呼び 出さ れ た 側 の プロ グラ ム で 宣言 し た 寸法 は 一 
致 き は せ て お く 必 要 が ある 。 そ こ で , 呼び 出し 側 で 家 言 し た 寸法 を 引数 と 
し て 受け 取っ て , それ に 合わ せ て 配列 宣言 を 行なう こと が で きる よう に 
な っ て いる 。 
( 例 ) | |ISUBROUTINEE CLEAR(A,M,RN ) 
DIMENSION A(M,RN ) 
DO 1 エ =1,M 
DO 1 J=1,M 
1| |A( エ , 了 )=0o.0 
RETURN 
EEND 
た だ し , この よう な 書き か た が 許さ れる の は 。 配列 名 と 寸法 が と も に 引 
数 の 場合 に 限る 。 ま た 寸法 と し て 式 は 書け な い 。 
(誤り の 例 ) SUBROUTINE S(X,Y,R) 
DIMENSTION XX(N+1) ,A(N,T ば ) 
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A.13 入 出 カ 


FORTRAN の 入出 力 の 書き か た は , か な り め ん どう で ある 。 それ は , 
常に 書式 を 指定 し な けれ ば な ら な いか ら で あ る 。 拡張 BASIC に 
PRINT USING "書式 ! : 変数 名 の 列 
と いう 書き か た が ある が , それ と 同様 みな こと を 常に (し か も ,。 も っ と 難 
解 な 規則 に 従っ て ) 書か な けれ ば な ら な い '。 
READ 文 FORTRAN に は INPUT と いう 文 は な く て ,。 い つ で も 
READ 文 を 用 いる 。 書 きか た は 。, 
READ( 装 置 番号 , 書式 の 文 番号 ) 変数 名 の 列 
で ある 。 装置 番号 は 、 その 名 の と お り 装 置 を 指示 する 番号 で ある が 普 
通 、 デー タ を 読み 込む た め の 標 準 的 な 入力 装置 を 5 番 に する 。 書 式 の 文 
番号 と いう の は , あと て 述べ る FORMAT 文 の 文 番 号 で あり , 右 に 列挙 
され た 変数 の 値 を . その FORMAT 文 の 書式 に 従っ て 読み 込む こと に 
な る 。 
WRITE 文 出力 に は , 普通 、 WRITE 文 を 用 いる 。 書 きか た は 
WRTT 世 (装置 番号 , 書式 の 文 番 号 ) 変数 名 の 列 
で ある 。 標 準 的 出力 の 装置 番号 は 、 普通 、 6 で ある 。 
配列 の 入出 力 配列 の 要素 全部 を 入出 力 す る の で あれ ば , 「 変 数 名 
の 列 」 に 配列 名 を 書け ば よい (カッ コ や 添字 は 付け な い )。 た だ し 行列 の 
場合 , 列 番号 順 (た と えば mj, の 1 1, の 2 の 52。 32。 の 3。 …) に 


な る の で , 行列 を 扱う 場合 に は 転 置 行列 の よう な 感じ に な る 。 な お , 次 
の よう な 「DO 型 並 び 」 と いう 書き か た も で きる 。 
( 例 ) 





RITEB(6,.80) (X(1) , エ =11,18) 
READ(5,2) ((A(T, 了 ) , 了 =1 , 3 ) , エ = ニュ 


(前 行 の 続き )| ,7 ) 


† た だ し FORTRAN 77 や 一 部 の 拡張 FORTRAN で は 
RAD( 装 置 番号 ,* ) 変数 名 の 列 
WRTITT 選 (装置 番号 ,* ) 変数 名 の 列 

と いう 書き か た が で きる 。 
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FORMAT 文 これ は 書式 を 指定 する も の で , 次 の 形式 で 書く 。 
FORMAT ( 欄 記 述 子 の 列 ) 
ここ で 「 欄 記述 子 の 列 ] と いう の は , 柚 記 述 子 を コン マ で 区 切っ て 並べ 
た も の 。「 欄 記述 子 ] と いう の は , 簡単 に いえ ば 「 一 つの 変数 の 書式 を 記 
述 し た も の |」 また は その くり か え し , また は 「 出 力 す べき 文字 列 ] また 
は 「 空 白 を 入れ る 指定 ] で ある 。 よく 使わ れる 欄 記 述 子 に は 次 の よう な 
も の が ある 。 
FE . カ 欄 の 長き が w 桁 で 、 そ の 右 か ら z 桁 を 小数 部 に する 
こと を 表す 。 実 数 型 の 入出 力 に 用 いる 。 
名 . カ 欄 の 長 さ が w 桁 で その 右 4 桁 を 「E キ メ XX] の 形 
の 指数 部 に あて , その 前 の ヵ 桁 を 小数 部 に する 。 実数 


型 の 入出 力 に 用 いる 。 

D 娘 .Z これ は E 娘 .2 と だ いた い 同 じ 。 倍 精度 実数 型 用 。 

1 7 巡 欄 の 長 さ が 桁 で 、 それ が すべ て 整数 部 に あて られ 
る こと を 表す ( 欄 の いち ば ん 右 が 1 の 位 )。 整数 型 の 入 
出力 に 用 いる 。 

7 巡 欄 の 長 さ が 娘 桁 で 、 そ こ に 論理 値 が 「 真 ] を T,「 偽 」 
を F で 表し て 記録 さき れる こと を 表す 。 

A77 欄 の 長 さ が 桁 で それ が 女池 の 文字 列 と し て , 文 
字 型 変数 に 対応 する こと を 示す 。 

2 入力 の 場合 は , ヵ 桁 を 読み と ば すこ と を 表し , 出力 


の 場合 は ヵ 字 ぶん の 空白 を 入れ る こと を 表す 。 
複素 数 型 の 入出 力 は 実数 型 2 箇 (実数 部 , 虚数 部 の 順 ) と し て 扱う 。 
行 送 り の 制御 出力 の 場合 行 の 第 1 字 目 に あたる 文字 は 印字 され 
ず , 行 送り の 制御 文字 と し て 扱わ れる 。 す な わ ち , これ が 

空白 な ら ば 普通 の 改行 (シン グル ・ ス ペー ス ) 

0 な ら ば も う 一 度 改行 (ダブ ル ・ ス ペー ス ) 

1 な ら ば 次 の ペー ジ に 移る ( 改 ペ ー ジ ) 

二 な ら ば 改行 せ ず 復帰 だ け (重ね 打ち ) 
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A. 14 FORTRAN プロ グラ ム の 例 


1 ) 


2.2.1 節 の プロ グラ ム の FORTRAN 訳 


2.3. 


1 0 


READ(5,1) A,B,HH 
FORMAT(3SF10.5) 書式 指定 が 必要 
S=(A 二 B)*H/2.0 小数 点 を 忘れ る な ! 
RITE(6,2) 8 

FORMAT( !」!T10.5) 

STOP 

END 


1 節 の プロ グラ ム の FORTRAN 訳 


DO 30 RN=1,10 


EN=N 実数 型 に 変換 
R=1 .0/EN 小数 点 を 忘れ る な ! 
S=SQRT(EN ) 関数 名 の 相 條 に 注意 
N2=N*RN 


RITE(6,1) N,N2,R,8S 
FORMAT( !」! 2T5,2FE10.5) 
CONTTIRNUEE 
STOPB 
世 ND 


.1 節 の プロ グラ ム の FORTRAN 訳 


DIMENSTION X(100) 
READ(5,1) 
FORMAT(TI5) 
REBAD(5,2) (XX(1) , エ =1,RN) 
FORMAT(E10.5) 
二 0⑩ . ⑩ 
DO 10 エ ユエ =1,N 
W=W+X(T1) 
CONTTINUE 
H=ーW ノ FLOAT(RN) 型 変換 が 必要 
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=0 .0 
DO 20 エ = テ 1,RN 
W=W 十 (XX(T) 一 HH)** る 2 べき 乗 は ※*※ 印 


20| ICONTTIRNUEE 
S=SQRT(W/FLOAT(N) ) 
RITE(6,3) H,8 


3| IFPORMAT( ' HEEIKTIN=' ,F10.5, 
1| !HYOUZYUNHENSA' ,F10.5) 
STOP 
END 


4) 2.5.1 節 の アプ ログ ラム の FORTRAN 訳 















TNTEGER B,K,8, 邑 ,G 

DIMENSTION B(100) ,K(100) , 
S(100) ,EE(100) 

READ(5,1)RN 

FEORMAT(T5 ) 

DO 60 ユエ =1,RN 

民 包 AD(5,5) B(1I) , 六 ( エ T) ,8(1T) , 世 (1 ) 


5| IPORMAT(4T15) 
60| ICONTINUBE 
RITE(6,2) 
2| IPORMAT( 'BANGOU,TENSUU,HANTE1') 
DO 100 エ =1,RN 
G=K(1T )+S(1) 十 EE(1) 
TTP(G.LmT.200) GO TO 150 
RITE(6,6) B(1),G 
6| PORMAT('! こ っ! ,2T5,!O「) 
GO TO 140 
130 RITEB(6.7) B(1rI),G 
7| IPORMAT(' コ 2T5, XX「) 
140| ICONTINUBE 


END 
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A.15 を の 他 


DATA 文 FORTRAN に も DATA 文 が ある が ,。 それ は 「 入 力 デ 
ー タ を 定義 し た も の 」 で は な く て , 「 変 数 の 初期 値 を 呈 え を る も の 」 で ある 。 
た と えば, 

DATA A/ ノ 1 .0 ノ 
と 書け ば 、 プロ グラ ム の 実行 開始 時 点 に お ける 変数 A の 値 は 1 に な る 。 
一 般 的 な 書き か た は 
DATA 変数 名 の 列 / 左 記 に 対応 する 定数 の 列 / 
また は それ を コン マ で 区 切っ て 並べ た も の で ある 。 
( 例 ) DATA 1 ,J 了 ,K/ ノ 8, 1 ,5 ノ 
DATA エエ /6/,M/3/,N1,N2/3,5 ノ 
「 変 数 名 の 列 ] の 所 に 配列 名 を 書い て よい 。 た だ し 第 1 添字, 第 2 添字 , 
第 3 添字 の 順に 変る の で 行列 の 扱い に は 注意 を 要する 。 た と えば 
DIMENSTION A(2,2) 
DATA A/ ノ 1 .0,2.0,3.0,4.0 ノ 
と する と 次 の よう に な る 。 
の ii 三 1 の 2 三 う 3 
2」 三 2 2 三 4 

STOP 文 FORTRAN の STOP 文 は |「 ここ で , この プロ グラ ム の 
実行 を 終了 する 」 と いう 意味 に な り , 普通 は すぐ 次 の 人 の 仕事 に 移る 。 
単なる 一 時 停止 は 

PAUSH 
と 書く 。 こ れ だ と , その 次 の 文 か ら 実 行 を 再開 で きる 。 

END 行 これ は プロ グラ ムッ ム 単位 (すなわち , メイ ンプ ログ ラム , 
サブ プルー チン な ど ) の 区 切り を 表す 。BASIC の 場合 は 上 記 の STOP 文 
の よう な 意味 で 何 筒 所 に で も 書け た が , FORTRAN の 場合 は プロ グラ 
ム 単 位 の 末尾 に し か 書け な い の て で 注意 を 要する 。 


2.2.1 演習 


1 
(1) 一 8*C (2) (A+B)*C (3) A*B 


2 
(1) 1/(X+Y) (2) 1/(X*Y) 
(3) Y/(2*X) (4) B/A+D/C 
(5) (A+B)/(A1+B1 ) 


2.2.2 演習 


1 

(1]) 8QR(1-X^2 ) 

(2) LO0G(LOG(X) ) 

(3) BEXP(2*X) 

(4) SIN(3.1416/180*10 ) 
⑮) ABS(X)--ATN(Y) 


10 INPUT N,A 

20 LET 8=(A/2) 人 へ 2*N/TAN(3.14 
16/N ) 

30 PRINT 8 

40 END 


2.2.3 応 用 問 題 


1 
10 INPUT !A,B=:A,B 
20 LET A1=A+B 
30 LET A2=A 一 B 
40 LET A3=A*B 
50 LET A4=A/B 
60 PRINT "WA,SA,SEKI,8SYO リ " 
70 PRINT A1:A2:A3:A4 
80 END 


)) 
10 INPUT "SESI=":C 
20 LET F= ニ 9*C/5 填 32 
30 PRINT = リ :E 


稀 

品 
40 END 
10 INPUT "KASI= リ !:E 
20 LET C=5/9*(Fー32 ) 
30 PRINT "C=!:C 
40 END 

ij) 
10 INPUT "MILLI= リ :M 
20 LET エ =M/25.4 
30 PRINT "INCH= リ :1I 
40 END 
10 INPUT "INCH=!:r 
20 LET M=25 .4*[ 
30 PRINT "MILLI=:M 
40 END 

明 ) 
10 INPUT "POUND=!:P 
20 LET K=0.45359*P 
30 PRINT !KILO_GRAM=!:K 
40 END 
10 INPUT "KG= リ :K 
20 LET P=K/0.45359 
30 PRINT POUND=! :P 
60 END 

iv) 
10 INPUT "WATT=V:iW 
20 LET B=W/736 
30 PRINT !BARIKI=":B 
40 END 
10 INPUT "BARIKI=!:B 
20 LET W=736*B 
30 PRINT "WATT=":W 
40 END 

Y) 
10 INPUT "KIATU=!:K 
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20 LET M=1013.25*K 
30 LET 8=760*K 


40 PRINT !MIRIBAR=" :M, "8U 
IGIN=":S 
50 END 


10 INPUT "SUIGINTYU=!:S 

20 LET M=(1013.25/760)*8S 

30 LET K=8S/760 

40 PRINT "MILLIBAR=":M, "KITA 
TU= リ KK 

50 END 


Vi 
10 INPUT "BYOSOKU=":B 
20 LET ゴ =3.6*B 
30 PRINT "JISOKU(KM)=" : 了 
40 END 


10 INPUT "JISOKU=": 了 
20 LET B=J/3.6 

30 PRINT "BYOSOKU=":B 
40 END 


vii) 

19 INPUT "RADIAN=":R 

20 LET D=(180/3.1416)*R 
30 PRINT "DO=":D 

40 END 


10 INPUT "DO=":D 

20 LET R=(3.1416/180)*D 
30 PRINT "RADIAN=":R 

40 END 


1 ) 
10 INPUT T,M,H 
20 LET X=(TーM)/H*10+50 
30 PRINT "HENSATI= リ :X 
40 END 


ji) 
10 INPUT T1,.T2 
20 LET X=0.99*T] 二 0.36*T2 十 41 
) 
30 PRINT "HUKAI SI8SU=": X 
40 END 


損 ) 
10 INPUT T,K 
20 LET X=20*LOG(T/K)/LOG(10 
) 





解答 一 一 2.2.3 応用 問題 


30 PRINT "DB= リ :X 
40 END 


i ) 
10 INPUT A,H 
20 LET X=(A*H)/2 
30 PRINT "MENSEKI=!:X 
40 END 


ij) 
10 INPUT "HANKE1I= リ :R 
20 LET X=32.1416*R*R 
30 PRINT "EN NO MENSEKI= リ :X 
40 END 


操 ) 
10 INPUT HANKETI=!:R 
20 LET V=(4/3)*3.1416*R*R*R 
30 LET 8=4*3.1416* R*R 
40 PRINT !KYU NO TAISEKTI= リ : 
V,!HYOMENSEK1I=":8S 
50 END 


iv) 
10 INPUT R,H 
20 LET V=(3.1416/3 )*R*R*H 
30 PRINT "ENSUI NO TAISEKTI= 
LE / 
40 END 


Y) 

10 INPUT "TORUS NO HANKEI R 
1 ,R2= リ :R1.RZ 

20 LET 8=4*3.1416*3.1416*R1 
*R2 

30 PRINT "TORUS NO HYOMENS 
EKI=:8 

40 END 


VI) 
10 INPUT "8YUJIKU NO NAGASA 
A,B,C NO 1/2=!0:A,B,0C 
20 LET V=(4/3)*3.1416*A*B*C 
30 PRINT !DAENTAI NO TAIS 
EKI=:V 
40 END 


10 PRINT SQR(2) :!___1.41421 
3562373 リ 
20 PRINT LOG(2):!___0.69314 


7180560" 


解答 一 一 2.3.2 演 普 


30 


40 


20 


40 


70 


80 


110 
120 


2.3. 


10 
20 


40 


PRINT EXP(1):!___2.71828 
1828459 リ 

PRINT SIN(3.1416/18) : リ ーー 
_0.173648177667 リ " 

PRINT ATN(1):"!___0.78539 
8163397 リ " 


INPUT A,B 

LET S=SIN( A+B) 

LET U0=SIN(A)*COS(B)+COS( 
A)*SIN(B) 

PRINT "SIN(A+B)=___SAHEN 
= リ : 8,。 リ UHEN=!:U, "SA= リ :ABS 
( 8-U ) 

LET 8S=COS(A+B ) 

LET 0=CO8(A)*COS(B)-8IN( 


A)*SIN(B) 

PRINT "CO8(A+B)=___SAHEN 
= 8,"UHEN=":U,。 "8A=:ABS 
( 8-U ) 


LET T1=TAN(A) 
LET T2=TAN(B) 
LET 8=TAN(A+B) 
LET 0U=(T1+T2)/( ユ 1 一 T1*T2 ) 


PRINT "TAN(A+B)=___SAHEN 
= リ :8, リ UHEN=":U, "8A=":ABS 
( 8-U ) 

END 

1 演習 


FOR X=1 TO 2.01 STEP 0.1 
ET Y ニ 2* ネ X ネ XX 十 3 ネ * ネ メー] 

PRINT X,Y 

NEXT XX 

END 


INPUT A,B,C,X1,X2,D 
PRINT "X= リ 0 リ Y= リ 

FOR X=X]1 TO X2 STEP D 
LRT Y ニ ーA* ネ X** 双 士 B*X 十 C 


PRINT X,Y 
NEXT XX 

END 

2 演習 

LT A=1 

LET S=1 

FOR K=1 TO 10 
LET A=A/K 
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50 LET 8=8+A 
60 PRINT K,A,S 
70 NEXT KK 

80 END 


10 INPUT N,X 

20 LET A=1 

30 LET 8=1 

40 FOR K=1 TO N 

50 LET A ニ ーA* ネ XX*X/( 2*K*( 2* ネ Kー] 
) ) 

60 LET 8=S+A 

70 NEXT K 

80 PRINT "N=:N, リ !X= リ UiX。 リ WA= 
8 

90 END 


(2⑫ 

10 INPUT N,XX 

20 LET B=X 

LET 8=X 

FOR K=1 TO N-1 
LET B ニ ーX メ ネ X*B 
LET A=B/( る *K 十 ] ) 
LET 8=S+A 

NEXT K 

PRINT "N= リ Wi:N, リリ X= リ 0:X,!WA= 
| 

100 END 


きき うら らち きき 


10 INPUT N,X 

20 LET 8=0 

30 FOR K=1 TO N STEP 2 

40 LET A=SIN(K*X)/K 

50 LET B=SIN((K+1 )*X)/(K+1) 
60 LET 8S=S+AB 

70 NEXT K 

80 PRINT 8 

90 END 
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2.3 
1 


10 


20 
30 
40 
50 


60 
70 


10 
20 
30 


40 
50 
60 


-3 応 用 問 題 


i ) 
PRINT "XW。 VS8TN(X)『"。 
X) 0 。 WT や AN(X)『 

LET A=3.1416/180 
FOR X=0 TO 90 STEP 10 
LET Y= ニ A*X 


"CO08( 


PRINT X,SIN(Y) ,C08(Y) ,TA 
N(Y) 

NEXT XX 

END 

ji) 

PRINT "XX リ LO0G10(X)" 


LET A=1/LOG(10) 

FOR X=0.1 TO 2.01 STEP 0 
で 人 

PRINT X, A*LOG(X) 

NEXT XX 

END 


損 ) 


20 


PRINT "NV, VNIV 
PRINT ! 10,0 1W 
LET N1]=1 

FOR N=2 YO 10 
LET N1=N1*N 
PRINT N,N1 

NEXT N 

END 


PRINT "LITERU 。"G1!。 
WG30 WVG4 リ 

FOR X=]1 TO 30.01 8TEP 0. 
話 
LET 


LET 


WG20。 


Y1=135*X 
Y2=138*XX 

LET Y3=145*X 

LET Y4=]155*X 

PRINT XY1。Y2, YS3。Y4 
NEXT XX 

END 


PRINT "GANKIN 10000YEN,X 
NEN GO NO GANRTI GOUKEI(N 
EN HUKURI)" 

PRINT X:!(NEN)!。 り 5.50。V5 
リリ VM6 リ :U(PERCENT)_YENV" 
FOR X=] YO 20 








きき うき らち る 


20 


きき うら ちご 


100 
110 


) ) 


解答 一 一 2.3.3 応用 問題 


LET Y1=10000*1.035^ へ XX 
LET Y2=10000*1.05^X 
LET Y3=10000*1.06^X 
PRINT XY1。Y2.YS9 
NEXT X 

END 


PRINT "TUMITATE YOKIN 10 
000YEN/ZNEN NO GANRI GOU 
KEI" 
PRINT WX_NEN リ , 5.50。W5V 
, リ 6 リリ (PERCENT)_YEN" 
LET Y1=10000 
LET Y2=10000 
LET Y3=10000 
FOR X=1 "TO 20 
LET Y1=Y]*1.035 
LET Y2=Y2*1.05 
LET Y3=Y3*1.06 
PRIN 光 。Y1。Y2。Y8 
LET Y1=Y1+10000 
LET Y2=Y2+10000 
LET Y3=Y3+10000 
NEXT X 
END 


PRINT "TATISYOKUKIN NO 2ZA 
NDAKA" 
PRINT "X_NEN GO "3.50, リ 


5!, リ 6!: (PERCENT)_YEN" 

LET Y1=10000000 

LET Y2=10000000 

LET Y3=10000000 

FOR X=1 "TO 10 
LET Y]1=Y]*1.035 
LET Y2=Y2*1.05 
LET Y3=Y3*1.06 
LET Y1=Y1-1000000 
LET Y2=Y2-1000000 
ET Y3=Y3-1000000 
PRTINT XY1。Y2。YS3 

NEXT X 

END 


PRINT "X(N)^X(N)___(LIM 
X TO 0) ,(X(N)=10^( -) ) " 
FOR N=1 TO 10 

LET Y=(10 へ (-N) ) へ (10 へ (一 
N ) ) 


解答 一 一 2.4.3 応用 問題 


40 PRINT N,Y 
50 NEXT N 
60 END 


ji) 
10 PRINT "SIN(X)/X___(LIM X 
TO 0 ) ,(X(N)=10^(-N) ) " 
20 FOR N=1 TO 10 
30 PRINT N,SIN(10^(-N) )/( 
10^(-N ) ) 
40 NEXT N 
50 END 


) 

10 PRINT "(1+1/N) へ NL___(LIM 
N TO LARGE)" 

20 FOR M=1 TO 4 

25 LET N=10^M 

30 PRINT N,(1+1/N) へ ^N 

40 NEXT M 

50 END 


jv) 
10 PRINT "R=1,NO NAISETU( 
GAISETU)TAKAKUKEI NO 8YU 

リ 


20 FOR N=3 TO 10 

30 LET T=3.1416/N 

40 PRINT N,2*N*SIN(T) ,2*N 
*TTAN(T) 

NEXT N 

END 


ご ご 


v) 
10 PRINT "TAN(X) 
U KINZI" 
20 INPUT "X= リ :X 
30 LET B=11 
40 FOR N=5 TO 1 8STEP -1 
50 B=2*N- 一 1] 一 X*X/B 


NO RENBUNS 


70 NEXT N 

80 LET Y=X/B 

90 PRINT !X=W:X。 リ TAN(X)= リ :Y 
100 END 


2.4.3 応 用 問 題 


1 
10 DIM A(3),B(3),X(3) 
20 INPUT A(1),A(2) ,A(3) 
30 INPUT B(1),B(2),B(3) 
40 PRINT 
50 FOR 1I=1 TO 3 
60 LET X(1)=A(TI) 十 B(1) 








200 


210 


220 


230 


240 


20 
30 
40 
50 


70 


きき 


110 
120 
130 
140 


189 


NEXT 1 
PRINT "VECTOR NO WA=":X( 
1 ) ,X(2) ,X(3) 
FOR 1I=1 YO 3 
LET X(1I)=A(1I)-B(1I) 


NEXT 1 

PRINT "VECTOR NO SA=" :X( 
1).X(2) ,X(3) 

LET Y=0 


FOR 1I=1 TO 3 
LET Y=Y 十 A(I)*B(1) 


NEXT 1 

PRINT VECTOR NO NAISEKTI 
に LU 4 

LET X(])=A(2)*B(3) 一 A(3)* 
8 る ) 


LET X(2)=A(3)*B(1) 一 A(1)* 
B(3) 

LET X(3)=A(1)*B(2) 一 A(2)* 
B(1) 

PRINT "VECTOR NO GAISEKI 
= リ 。 X(1),X(2),X(3) 

LET Y=SQR(A( 1 ) *A( 1 ) 十 A(2) 
*A(2) 十 A(3)*A(S3) ) 

PRINT VECTOR A NO NAGAS 
A= リ :Y 

END 


DIM A(3,3) 
FOR 1I=1 TO 2 

FOR J=1 TO 2 

READ A(1I,J 了 ) 

NEXT J 了 
NEXT 1 
LET D=A(1,1)*A(2,2) 一 A(1, 
2)*A(2,1 ) 
PRINT "DET(A)=": D 
FOR 1I=1 TO 3 

FOR J=1 TO 3 

READ A(1, 了 ) 

NEXT J 
NEXT 1 
LET D=A(1,1)*A(2,.2)*A(3,。 
3 )+A(1,.2)*A(2,3)*A(3,1) 二 
A(1,.3)*A(2,1)*A(3,2) 一 A( 1 
>3)*A(2,2)*A(3,1 ) 一 A(1,1 ) 
*A(2.3)*A(3.2) 一 A(2,1 ) *A( 
1。2)*A(5,。3) 
PRINT "DET(A)=":D 
END 


190 
6 
1 DIM A(100) 10 
10 READ N,X 20 
20 FOR 1=0 TO N 30 
3 READ A(1) 40 
40 NEXT r 50 
50 LET Y=A(0) 60 
60 FOR 1I=1 TO N 70 
70 LET Y=Y*X+A(1I) 80 
80 NEXT 85 
9⑳ PRINT "N_JrI TAKOUSIKI NO | 9 
ATAI=": Y 100 
100 BND 110 
120 
130 
10 DIM A(21 ) 140 
20 LET A(0)=0 145 
30 LET A(1)=1 150 
40 FOR 1=1 TO 20 160 
50 A( エ +1 ) =A( IT )+A( エー1 ) 200 
60 NEXT 
70 FOR 1=1 TO 16 STEP 5 210 
80 PRINT A(T-1) ,A(I),A(1 
+1 ) , A( 1I 二 2 ) ,A( エ +3 ) 結果 は 
9 NEXT 1 1 2 
100 PRINT A(20) 4 9 8 
110 END 
5 
5 
10 DIM X(11 ) ,Y(11 ) 4 
20 LET N=1 3 
30 LBT X(0)=1 ュ hl 
40 LET X(1)=1 2 
45 LET Y(0)=1 由 
50 PRINT "2_KOU KEISU" 
60 PRINT "N,C(0),C(1),---,C |7 
(10)" (中 ) 
70 PRINT N:X(0):X(1) 
80 FOR N=2 TO 10 2 5 
90 FOR I=1 TO N-1 " 
100 LET Y(1)=X(1-1 )+X(1) 1 
110 NEXT I 10 
120 LBT Y(N)=1 20 
130 FOR 1I=1 TO N 30 
140 LET X(I)=Y(1I) 40 
150 NEXT I 50 
160 PRINT N: 60 
170 FOR J=0O TO N 70 
180 PRINT X( 了 ): 80 
190 NEXT 了 9 
195 PRINT 100 
200 NEXT N 110 
210 END 120 


解答 一 一 2.5.1 演習 


DIM A(13,13) ,L(13) 
FOR 1=1 TO 13 
READ L(1I) 
NEXT I 
PRINT TAB(2): 
FOR 1=1 TO 13 
PRINT TAB(5*1I) :1: 
NEXT Ii 
PRINT 
FOR 1=1 TO 13 
PRINT 1: 
FOR J=1I TO 13 
LET A(I, 了 )=L(J)-L(1) 
PRINT TAB(5*J ゴ ) :A(T, 了 ) : 
NEXT 耳 
PRINT 
NEXT 1 
END 
DATA 
> 257 
DATA 
,553 
次 の よう に な る 。 
4 5 8 9 
195 121 4 
6 9 265 
21 37 9 173 219 
6 6 7 199 
9 59 173 245 
77 414 
37 


1 
ュー 
室 
ns 
SG 
に 1 


3 
84 
59 


1 演習 


FOR 1=1 TO 10 
INPUT B,K,8S,E 
LET G=K 二 8S+ 選 

IF G>=250. THEN 80 
IF G<250 THEN 100 


PRINT "B リ 
GOTO 110 
PRINT "A リ 
GOTO 110 
PRINT "X リ 
NEXT I 
END 


0.29.84,105,121,180 


294,.366,.396,446,514 


解答 一 一 2.5.3 応用 問題 


10 INPUT XX 

20 IE X<2 THEN 50 
30 LET Y=10 

40 GOTO 60 

50 LET Y=2Z.5* 広 

60 PRINT Y 

70 END 


10 INPUT N 

20 LET M=N/2 
30 IF M=INT(M) 
40 PRINT "K" 
50 GOTO 70 

60 PRINT "G リ 
70 END 


THEN 60 


2.5.2 演習 


1 


10 INPUT !A,B,C= リ ,A,B,C 
11 IF A=O THEN 162 








20 
30 上記 と 同じ 


160 





161 GOTO 164 

162 LET X メ = ニーC/B 
163 PRINT !X=":X 
164 END 


10 INPUT !A,B,C= リ !,A,B,C 
20 D=B*B 一 4*A ネ C 

30 8=-B/(2*A) 

40 T=SQR(ABS(D) )/(2*A) 
50 IT D<0O THEN 200 

60 IF D=0O THEN 170 

70 REM D>0 NO BAAI 

80 IF 8<0 THEN 110 

90 X1=8S+TT 

100 GOTO 120 

110 X1=8-〒 

120 X2=(C/A ) /X1 

130 PRINT !X1= リ :X1 

140 PRINT !X2= リ :X る 

150 GOTO 220 

160 REM D=0 NO BAAI 

170 PRINT "X=W:8 

180 GOTO 220 


191 


190 REM D< く 0 NO BAAI 

200 PRINT "XX1= リ WS8i リ 寺 リ に m リエ リ 
210 PRINT "XX2=0 LSWW:mT: UTU 
220 END 

230 RUN 


2.5.3 応 用 問 題 


1 

10 INPUT !SEIREKI(NEN)N=":N 

20 IF INT(N/4 ) く >N/4 THEN 70 

30 IF INT(N/100)=N/100 THEN 
60 

40 PRINT "URUU DOSI" 

50 GOTO 70 

60 IF INT(N/400)=N/400 THEN 
40 

70 END 


10 INPUT !Y-NEN,M-GATU,D-NI 
TI=":Y,M,D 
20 IP M<4 THEN 70 


30 IF M>4 THEN 50 

40 IF D=]1 THEN 70 

50 PRINT Y:M:D:!-ー080UMARE" 
60 STOP 

70 PRINT Y:M:D: リ HAYAUMARE" 
80 END 


10 INPUT "HONSU N= リ ":N 

20 IF N<10 THEN 80 

30 LET 1I=INT(N/10) 

40 IF I=N/10 THEN 100 

50 LET X=3000*[+330*(N 一 I*10 
) 


60 PRINT N:!-HON',X: リ YEN" 
70 GOTO 200 

80 LET X=330*N 

90 GOTO 60 

00 


LET X=3000*I 
110 GOTO 60 
200 END 


10 INPUT "GATU,--NITI=",M,D 


20 IP M く 1 THEN 500 
30 IF M>12 THEN 500 
40 IF M=1 THEN 100 
50 IF M=2 THEN 250 
60 IP M>7 THEN 200 
70 IF INT(M/2)=M/2 THEN 150 
100 IE D く 1 THEN 500 


192 解答 一 一 2.6.6 応用 問題 


110 TIE D>31 THEN 500 100 IF エ >=N THEN 120 
120 GOTO 600 110 GOTO 20 
150 IFP D く 1 THEN 500 120 END 


160 IP D>30 THEN 500 
170 GOTO 600 ji) 

200 IP INT(M/2 )=M/2 THEN 100 10 LET X=A 
210 GOTO 150 








250 IT D く 1 THEN 500 反復 手続 き 
260 IT D<=29 THEN 600 
270 GOTO 500 100 IE C く <0 THEN 200 
500 PRINT Mi: "GATU':D:!NITI" 110 IE X>=B THEN 300 
WA ARIENAI" 120 LET X ニ X+C 
510 GOTO 610 130 GOTO 20 
600 PRINT "OK M,D 200 IT X<=B THEN 300 
610 END 210 LET X=X+C 
220 GOTO 20 
300 END 


最高 100 枚 ま で と する 
10 DIM A(100) ) 


20 INPUT N,L,M 10 PRTNTP XXP(X)『 

22 LETT M1=1 20 LET X=0 

24 FOR 1I=1] TO _M 30 LET Y=EXP(X) 

26 LET M1=M1*10 40 PRINT X,Y 

28 NEXT エ 50 IF X>=] THEN 80 

30 FOR 1I=1 TO N 60 LET X= ニ X+0 .1 

40 READ  A(1I) 70 GOTO 30 

50 NEXT I 80 END 

60 FOR I=1 TO N 

70 IF A(I)-M1*INT(A( 1 ) /M1 ) = 2.6.3 演 普 

1 THEN 90 1 

80 GOTO 100 (1) DEF FNS(X) 

90 PRINT ATARI : へ A(1) = ニ (EXP(X)-EXP(-X) )/2 
100 NEXPT I (2) DEFP FNC(X) 

110 END =(EXP(X)+EXP(-X) )/2 

(3) DEF FNT(X) 

6 =FNS(X)/FNC(X) 

10 INPUT X, 選 (4) DEF FNA(X) 

20 LET A]=X =ATN(X/SQR(1-X*X) ) 
30 LETT B1=X/A1 (5) DEF FNB(X) 

40 LET A2=(A1 十 B1 ) /2 =3.1416/2-FNA(X) 
50 IT ABS(A1 一 B1) く ER THEN 80 

60 LET A]=A2 26.6 応 用 問題 

70 GOTO 30 1 

80 PRINT "SQR(X)=!:A2 10 INPUT N\ 

90 END 20 GOSUB 200 


30 GOSUB 200 
40 PRINT "HAPPY BIRTHDAY 
1 ) DEAR ":N\:i! SANI リ 





10 LET 1=0 50 GO8SUB 200 
20 LET エニ = ニテ I+1 60 STOP 

200 PRINT "HAPPY BIRTHDAY TO 
反復 手続 き YO0U" 





210 RETURN 


解答 一 一 3.1 演習 


220 END 
( 別 解 


10 A\="HAPPY BIRTHDAYV 


20 B\="TO YOU" 








30 INPUT N 

40 GOSUB 110 

50 PRINT A\:B\ 

60 PRINT A\:B\ 

70 PRINT A\: DEAR !:N\:! SA 
NRN" 

80 PRINT A\:B\ 

90 GOSUB 110 

100 GOTO 30 

110 FOR 1=1 TO 5 

120 PRINT 

130 NEXT 1 

140 RETURN 

150 END 

10 DATA "= ニニ ===  VVVV " 

20 DATA "1I 1 \T 

30 DATA "1 1 II II リ 

40 DATA "T まま 

50 DATA "1 000 0001I " 

60 DATA " 000 000 " 

100 DIM  D\(6) 

110 FOR I=1 TO 6 

120 READ D\(1) 

130 PRINT D\(1) 

140 NEXT 1 

150 END 

10 DIM A(3) ,B(3) 

20 INPUT A(1),A(2),A(3) 

30 INPUT B(1),B(2),B(3) 

40 REM 8=(A,B) 

50 LET 8S=0 

60 FOR 1I=1 TO 3 

70 LET 8=8+A(TI)*B(1) 

80 NEXT 1 

90 REM A0=ABS(A) ,BO=ABS(B) 

100 LET A0=0 

110 LET BO=0 

120 FOR 1I=1 YO 3 

130 LET A0=AO+A(1) へ 2 

140 LET BO=BO+B( 1 ) へ 2 

150 NEXT 1 

160 LET A0=SQR(A0) 

170 LET BO=SQR(B0O) 

180 REM COS( THETA) 

190 LET X=S/(AO*BO) 





193 
200 REM FUNCION ARCCOS(X) 
210 LET T=ATN(SQR(1-X へ 2 ) /X ) 
220 REM OUTPUT 
230 PRINT m 
240 END 


プロ グラ ム を 次 の よう に 改造 する と よい 。 
10 REM EXAMPLE-2.6.3 
20 DEF FNC( X ) =1/( 1]+X*X) 


30 INPUT "A,B,N=",A,B,N 

40 LET W=0 

50 LET W=0 

60 FOR エ =1 TO N-1 

70 LET X ニ =A 十 1*H 

80 LET W=W+ENC(X) 

90 NEXT 1 

100 LET W=FNC(A)/2 十 W+FENC(B)/ 
2 

110 LET 8S=W*H 

120 PRINT "8=:8:4*8 

130 GOTO 30 

結果 は 次 の よう に な る 。 
RLN 
HE, ロロ , 1 , 1 ロロ 
5S=ー 74982 3.13933 
H, EN ロロ, 1 , ご 
= ニー.785 ご 34 3.14118 
EN ロロ, 1 , ロ 
S=_.785382 3.14153 
H, BN ロロ, 1 , 1 ロロ 昌 
S= ー.785394 3.14158 
昌 , BN ロロ , 1 , ご 昌 
5= .78539?7 3.14159 


行 10 て 40 を 次 の よう に 変更 すれ ば よい 。 
10 INPUT N\ 


20 IF N\= リ FORMULA-2! THEN 9 
0 
30 IP N\= リ HERON! THEN 130 


40 IF N\ く >!EORMULA 一 1 THERN 
10 

3.1 演習 

1 

10 PRINT 1,T1= リ : 
20 INPUT PF1, エ 1 

30 PRINT "FE2,T2= リ ": 
40 INPUT FE2,1I2 

50 LET 1]= ニ 12* 選 ] 士 [1 
60 LET L2 ニ 12*F2 士 12 
70 LETT = ニ L1 二 2 

80 LET F=INT( 工 /12 ) 
90 LET R= ニ L 一 12* 選 

100 PRINT F: FEET リ . 


194 


110 
120 


PRINT R: "INOHES" 
END 


3. 1 節 の 応用 問題 


1 


10 
11 
12 
20 
30 


40 
50 
60 
70 
80 


20 
30 


ざら らき 


80 


100 
110 
120 
130 
140 
150 
160 
170 


20 
30 
40 


70 


きき 


110 
120 


140 


INPUT N 

IF N=]1 THEN 70 

IF N=2 THEN 50 
FOR M=2 TO SQR(N) 


IF N/M=INT(N/M) THEN 70 
NEXT M 

PRINT "SOSUU DEARU" 

END 

PRINT "SOSUU DEWANAI" 
END 


DIM A(1000) 
FOR =1 YO 
LET A(L)=0 
NEXT L 

FOR K=2 TO 
IF A(K) く >0 
FOR 1=2 YO 
LET = ニ I*K 
IF >1000 THEN 120 
LET A(L) =1 

NEXT 1 

NEXT K 

FOR L=K TO 1000 

IF A(L)=1 THEN 160 


1000 


3 1 
THEN 120 
1000/K 


PRINT L 

NEXT L 

END 

DIM P(25) 

FOR 1=1 TO 25 

READ P(1I) 

NEXT 1 

DATA 2.3.5.7,11。13.17。19 
ぅ る 3 

DATA 29,.31.37.41.43.47,.5 
3,59 

DATA 61,.69,.71.73.79.83,8 
9.97 

INPUT N 

IF N>100 THEN 80 

PRINT Ni: リ = リ : 

FOR 1=1 TO 25 

LET K=P(1) 


IF K>N THEN 210 


IF N/K く <>INT(N/K) THEN 20 





100 
110 


10 
20 


ごう らら きき 


110 
120 


140 


解答 一 3.1 節 の 応用 問題 


0 

PRINT K: 

LET N=N/K 

ITFE N=] THEN 210 
PRINT "* リ | 

GOTO 130 

NEXPT 1 

END 


PRINT "A,B,C,D= リ ": 
INPUT A,B,C,D 
LET F= ニ B*C 十 A*D 
LET EE=A*C 

LET 8S\= リ オリ 

GOSUB 300 

LET F= ニ B*CーA*D 
ET 8\ ぎ = リー リ 

GOSUB 300 

LET F=B*D 

LET 8S\= リ * リ 

GOSUB 300 

LETT EE=A*D 

ET F=B*C 

LET S\= リ ノリ 

GOSUB 300 

END 
PRINT 
PRINT 
$ 
PRINT 


B:TAB(6) :D:TAB(11) 


ERPUHE HUPYREEEH ド TI 


PRINT 
i 世 
PRINT 
RETURN 
END 


A:TAB(6):C:TAB(11) 


PRINT !A,B,C,D= リ 
INPUT A,B,C,D 
LET R ニ A+C 

LETT エ = ニ B+D 

LET 8S\= リ + リ 
GOSUB 300 

LET R= ニ A 一 C 

ET エニ BーD 

ET S ま = リー リ 
GOSUB 300 

LET RA*CーB*D 
LET エニ A*D 十 B*C 
LET S\= リ * リ 
GOSUB 300 


解答 一 一 3.2 演習 (p.85) 


150 


160 


30 
40 
50 
60 
70 
80 
90 
100 
110 
120 
130 
140 
150 


300 
310 


320 
330 
340 
350 
360 
370 
380 
390 
400 


7 


LET R=(A*C 二 B*D)/(C*C+D*D 
) 

LET 1T=(B*C 一 A*D)/(C*C+D*D 
) 

LBT 8B『= リ ノリ 

GO8UB 300 

END 
PRINT 
PRINT 
PRINT 
PRINT 
RETURN 
END 


W(W・Ai 0 オリ Bi WT)『: 


S\: 
W( WLCiW+VW:D:i WT )= リ : 
RE 0 すり:TiVT)V" 


0(W 


DIM C(12) 

DATA 0,31,.59,.90,120,151, 
181 

DATA 212,243.273.304,334 
FOR 1=1 TO 12 


READ C(1) 

NEXT I 

INPUT "Y1,M1,D1= リ ,Y,M,D 
GO8UB 300 

LET A1=N 

INPUT "Y2.M2,D2=",Y,M,D 
GOSUB 300 

LET A2=N 

LET A=A2 一 A1 

PRINT A 

END 


LET 2=Yー1600 

LET N2=365*2 二 INT(2/4 ) 一 IN 
T(2/100)+INT(2/400) 

LET N1=C(M)+D 
LET N=N1+†NZ 

IF Y/4 く >INT(Y/4 ) 
0 

IF Y/400=INT(Y/400) 
370 

IF Y/100=INT(Y/100) 
390 

IF M<=2 THEN 390 
LET N=N+1 

RETUN 

END 


THEN 39 


THEN 


THEN 


文字 列 型 配列 を 使用 で きる 機種 な ら ば 次 の よう に すれ ば よ 
い (基本 BASIC に は 文字 列 型 配 列 が 含ま れ て いな い の で , そ 
の 制約 を 忠実 に 守る と すれ ば ON 文 で 分 岐 し て プリ ント さ 
せる ほか な い )。 


10 


DIN C(12) ,W\(7) 





20 


110 


3.2 


110 


10 
20 


195 


DATPA 0。851。59.90。120。151 。 
181 
DATA 
DATA 
TUE" 
DATA "WED! "THU 。 リ FRT" 
FOR !=1 YO 12 

READ C(1) 

NEXT 1 

FOR 1I=0 TO 6 

READ W\(I) 

NEXT 1 

INPUT "YJM,D=",Y,LM,D 
GOSUB 300 

LET R=N-7*INT(N/7 ) 
PRINT W\(R) 

END 


212.243.273。304,334 
W8ATU, VSUN!, WMON! , リ 


| 前 問 解答 に 同じ . 
演習 (D.85) 


DIM Y(60) ,M(12) ,D(31) 
FOR 1I=1 TO 60 
LET Y(1I)=0 
NEXT I 
FOR I=1 TO 12 
LET M(I)=0 
NEXT 1 
FOR 1I=1 TO 31 
LET D(1I)=0 
NEXT 1 
FOR 1=1 TO 200 
INPUT Y1,M1,D1 
LET Y(Y]1 )=Y(Y1] ) 二 1 
LET M(M1 ) =M(M1 ) +1 
LET D(D1 ) =D(D1 ) +1 
NEXT 1 
FOR 1=1 YO 60 
PRINPT T,Y(1) 
NEXPT 1 
FOR 1=1 
PRINT 
NEXT I 
FOR [=1 
PRINT 
NEXT 1 
END 


uo 議 b 
I,M(1I) 


TO 31 
I,D(I) 


LET K=0 
INPUT T1 


196 


3 


FOR 1I=2 "TO 50 
INPUT T2 
ITF T]>=T2 THEN 70 
LETT K=K+1 
LET T1=T2 
NEXT 
PRINT K: "NICHI リ " 
END 


行 100 以後 を 次 の よう に 変更 する 。 


100 
110 


550 
560 


3.2 


1 


DATA "HOKKAIDOU" 
DATA "AOMORI リ 


DATA "KAGOSIMA" 
DATA "OKINAWA" 
FOR 1=1 TO 47 
READ A\ 
PRINT A\,K(1I) 
NEXT 1I 
END 


演習 (D. 87) 


( 略 ) 


110 


DIM K(31,5) 
FOR 1=1 TO 31 
FOR J=1 YO 5 
LET K(T, 了 )=0 
NEXT 了 
NEXT 1 
INPUT D,C,A 
IF D=0 THEN 130 
IF D>31 THEN 210 
IF C>5 THEN 2 る 210 
LET K(C,D)=K(C,D)+A 
GO YO 70 
PRINT "HIZUKE_BETU KATU 
HIMOKU_BETU GOUKEI" 
FOR 1=1 TO 31 
FOR J=1 "TO 5 
PRINT K(I, 了 ) , 
NEXT 了 
PRINT 
NEXT 1I 
STOP 
PRINT "TIRENAOSITE KUDA8S 
AI" 
GOTO 970 
END 








解答 一 一 3.2 演習 (p.91) 


3.2 演習 (D.89) 


1 


例題 の プロ グラ ム に 下記 を 挿入 (一 部 変更 ) する 。 
221 LET G(1I)=8(1)/N 

222 LET W=O0 

223 FOR J=1 "TO N 

226 W=W+(X(T, 了 ) -G(1I) ) へ る 
225 NEXT 了 

226 LET B(1I)=W/N 

230 PRINT "TA":G(1) ,B(1 ) 
291 LET H(I)=T(I)/M 

292 LET W=0 

293 FOR 1=1 TO M 

294 W=W+(X( エ ,J) HI(1) ) へ 2 
295 NEXT 1 

296 LET C(1I)=W/M 

321 FOR J=1 "YO NRN 

322 PRINT C(1{) , 

323 NEXT 了 

15 DIM G(5),H(5),B(5),C(5) 


3.2 演習 (p.91) 


1 


(学生 番号 の 記録 は し な いで , 点数 の み ) 


10 INPUT N,X 
20 LET 8=X 

30 FOR 1I=2 YO N 

40 INPUT "TUGI NO TEN=!:X 
50 IF 8<=X THEN 70 

60 LET 8S=X 

70 NEXT 1 

80 PRINT "SAISHOTI= リ :8, 

90 END 


10 INPUT N,X 


20 LET 8=X 

30 LET G=X 

40 FOR IT=2 TO N-1 

50 INPUT "TUGI NO TEN=!:X 
60 IF G>=X THEN 90 

70 LET G=X 

80 GOTO 110 

90 IF 8<=X THEN 110 

100 LET 8=X 

110 NEXT 1 

120 PRINT "SAISHOTI=!:8, リ "8 


AIDAITI=!:G 
130 END 


解答 一 一 3.2 演習 (p.91) 


10 
20 
30 


40 
50 
6 
70 
80 
90 


100 
110 


110 


110 


LET N=60 
INPUT X 
LET G=ABS(X) 
FOR 1I=2 TO N 
INPUT X 
LET A=ABS(X) 
IF G>=A THEN 90 
LET G=A 
NEXT 1 
PRINT "MAX(ABS(X) )=":G 
END 


LET N=60 

INPUT 8S,X 

IF 8=2 THEN 60 

LET G1=X 

GOTO 70 

LET G2= ニ XX 

FOR 1=1 "TO N-1 
INPUT 8S,X 
IF 8=2 THEN 120 
IF G1>=X THEN 140 
LET G1=X 
GOTO 140 
IF G2>=X THEN 140 
LET G2=X 

NEXT 1 

PRINT "SAIKOTEN" , "0OTOKO" 

*G1 OWNIAY :d2 

END 


DIM A1(3,.5),B1(3,5),G1(3 
) ,H1(3) 

INPUT "NINZ0=",M 

FOR G=1 TO 3 

FOR K=1 YO 5 

LET A1(G,K)=1000000 

NEXT K 

NEXT G 

PRINT !GAKUNEN,KUMI ,BANG 
0,TIME リ " 

FOR 1=1 TO M 

INPUT G,K,B,T 

IF A1(G,K) く =T THEN 140 
LET A1(G,K)=T 

LET B1(G,K)=B 

NEXT I 

FOR G=1 TO 3 

LET G1(G)=A1(G,1 ) 

LET H1(G)=B1(G,1 ) 





180 


200 
210 
220 
230 
240 
250 
260 
270 
280 
290 


310 
320 
330 
340 
350 


355 


370 


390 
400 


410 
420 
430 
440 


6 


デー 


197 


FOR K=2 YO 5 

IE G1(G)<=A1(G,K) 
20 

LET G1(G)=A1(G,K) 
LET H1(G)=B1(G,K) 


THEN 2 


NEXT K 

NEXT G 

LBT Y=G1(3) 

LET 2=H1(3) 

FOR 1=2 TO 1 8TEP -1 

IE Y<=G1(I) THEN 300 

LET Y=G1(1) 

LET 2=H1(1) 

NEXT I 

PRINT "ZENKOU-1UWAW 2 VK 
UWW。 

PRINT "TIME:Y:i!BYOU" 
FOR G=1 TO 3 

PRINT G:!GAKUNEN--1uWA" :H 
1(G) : 

PRINT "KUN,TIME!:G1(G) : リ " 
BYOU" 

NEXT G 

PRINT "CLASLBETUUNOO1BAN 
W 

FOR G=1 TO 3 

FOR K=1 YO 3 

PRINT Gi: !NEN :K: リ UKUMIO リ : 
PRINT B1(G,K) : リ KON iA1( 
G,K) : 

PRINT "BYOU" 

NEXT K 

NEXT G 

END 


タ の , 4 …。 m の 最大 値 と 2 番目 の 値 を 求め る プロ グ 


ラム の 例 を 示す 。 は 最大 値 。 S は 2 番目 の 値 で ある 。 


10 
20 


30 
40 
50 
60 
70 
80 
90 
100 
110 
120 
130 


140 
150 


INPUT N,A1,A2 

IF A1 く AZ THEN 60 
LET T ニ A1 

LET 8=AZ 

GOTO 80 

LET T ニ AZ2 

LET 8=A1 

FOR 1I=3 "TO N 
INPUT A 

IF A<=S THEN 180 
IF K<=T THEN 160 
REM S く =T く A 

LET 8S=T 

LET = ニ A 

GOTO 180 


198 


160 REM S く A ぐ = 

170 LET 8=A 

180 NEXT I 

190 PRINT "TOP":T 

200 PRINT "SECOND":8 
210 END 


3.2 節 の 応用 問題 

1 

3.1 節 の 応用 問題 の 解答 の プロ グラ ム の 行 130 以後 を 次 の 
よう に 改造 する 。 

130 FOR 了 =1 YO 10 

140 LET M1=100*( 了 ー1 ) 二 1 
150 LRT M2=100* 耳 

160 LET C=0 

170 FOR M=M1 TO M2 

180 IP A(M)< く >0 THEN 200 
190 LT C=C+1 

200 NEXT M 

210 PRINT C:TAB(10) : 

220 FOR I=1 YO C 

230 PRINT "* リ : 

240 NEXT I 

245 PRINT 

250 NEXT 了 

260 END 


生徒 番号 0 に よっ て 終了 判定 を 行なう こと に する 。 
10 DIM K(40) 

20 FOR 1I=1 YO 40 

30 LET K(1I)=0 

50 NEXT Ii 

60 REM SEITO BANGOU O YOMU 
70 INPUT I 

80 IT エ =O THEN 120 

90 IE I>40 THEN 70 

00 LET K( TI ) =K( 1 )+1 

110 GOTO 70 

120 FOR M=0O YO 366 

130 PRINT !KE8SSEKI!:M: "NTITIV 
140 FOR 1I=1 TO 40 

150 IF K(1I)< く >M THEN 170 

160 PRINT 1: 

170 NEXT Ii 

180 NEXT M 

190 END 


3 
10 DIM K(9),M(9) 
20 DATA 10000,5000,1000 
30 DATA 500,100,50,10,5,1 
40 FOR L=1 TO 9 





110 


解答 一 3.2 節 の 応用 問題 


READ K(L) 

LET M(L)=0 

NEXT L 

INPUT "NINZU=!,N 
FOR 1I=] YO N 
PRTNT "A( "iT:VU)=T: 
INPUT A 

FOR エ =1 TO 9 

LET Q=INT(A/K(L) ) 
LET A=AQ*K(L) 

LET M(L)=M(L)+Q 
NEXT L 

NEXT 1 

FOR =] TO 9 
PRINT K(L) : "REN:TmAB(10) : 
M(L ) : "MAI リ " 

NEXT 臣 

END 


LET 8=0 

LET N=0 

REM LO0OP 

INPUT A 

IF A=99999 THEN 100 
LET 8=8S+A 

LET N=N+1 

GOTO 40 

REM MEAN 

LET M=8/N 

PRINT "HEIKINA:M 
END 


DIM X(1000) ,Y(1000) 
LET W1=O0 

LET W2=0 

INPUT NRN 

FOR 1I=1 TO N 

INPUT X(1) ,Y(I) 

LET W1=W1+X(1) 

LET W2=W2+Y(1) 

NEXT I 

LET M1=W1/N 

LET M2=W2/N 

LET 8S1=0 

LET 8S2=0 

LET 8S83=0 

FOR Ii=1 "TO N 

LET 8S1=(X( 1 ) 一 M1 ) へ 2+81 
LET 8S2=(Y( 1 ) -M2 ) へ 2+8S2 
LET 83=(X( 1 )-M1)*(Y(I)-M 
2 )+83 


解答 一 一 3.3.5 応用 問題 


190 
200 
210 
220 
230 
240 


NEXT I 

LET 8S1=SQR(S1/N ) 
LET 82=SQR(S2/N ) 
LET R=S3/(N*S1*S2 ) 
PRINT R 

END 


3.3.2 演習 


1 ( 申 ) 
2 ( 略 ) 


3.3.5 応 


1 
10 
20 
30 
40 


110 
120 
130 


140 


用 問 題 


DIM M(20) 

FOR 1I=0O TO 20 

LET M(1I)=0 

NEXT 1 

INPUT N 

FOR J=1 TO N 

INPUT X 

LET 1=INT(X/5) 

LET M(L) =M(L )+1 

NEXT 了 

LET M(19 )=M(19 )+M(20 ) 
FOR 1I=0 TO 19 
PRINT TIT*5: リー リ | 
(10 ) : 

IE M(I)=0 THEN 180 
FOR K=1 YO M(1I) 
PRINT !* リ : 

NEXT K 

PRINT 

NEXT 1 

END 


IT*5 十 4 :TAB 


デー タ は 


年 齢 男 の 数 女 の 数 
の 形式 で 入れ , ヒ スト グラ ム は 1 字 で 1000 人 を 表す こと に す 


る 。 
10 
20 
30 


40 
50 
60 
70 
80 
90 


100 
110 
120 
130 


(最後 は 年 齢 999 と する ) 


DIM A(9),B(9) 
FOR 1=0 TO 9 

LET A(1I)=0 

LET B(1I)=0 

NEXT 1 

REM LO0O0P 

INPUT K,M,W 

IF K=999 THEN 160 
LET ゴ =K/10 

IF J<=9 THEN 120 
LET ゴ =9 

LET A( 了 )=A( 了 )+M 
LET B( 了 )=B( 了 )+W 








140 
150 
160 
170 
180 
190 


200 
210 
220 
230 
235 
240 
250 
260 
270 
280 
290 


300 
310 
320 
330 
340 
350 
360 


3 


199 


GOTO 70 

REM OUTPUT 

PRINT 

FOR J=9 TO 0O STEP -1 
PRINT 10*J:TAB(5): 
LET N1=INT(A( 了 )/1000+0.5 
) 

IE N1<=20 THEN 220 
LET N1=20 

FOR =0 TO 20-N1 
PRINT LV: 

NEXT 

IF N1=20 THEN 280 
FOR L=1 TO NRN1 

PRINT "* リ : 

NEXT 

PRINT "1I リ ": 

LET N2=INT(B(J 了 )/1000+0.5 
) 

FOR L=1 TO NZ2 

PRINT "* り : 

NEXT L 

PRINT 

NEXT 了 

PRINT 

END 


次 ペー ジ の 図 を 見 よ 。 
上 記 6 ) の た め に 改造 し た プロ グラ ム 


5 PEN "DDT。 共 2 "LPTOs " 

7 NPHT "FETEEV。 T 事 

B FRINT 拉 2。 ま 

10 DEF FNC(X) =1/(X+0O。0O01 ) 
20 FRINT "aaE。C。H。 ド = リ 
3O INFUT 4B。C。H。 ド 

40 LET N=INT((B-Q) /H+0 の 。 1 ) 
5O FOR 1=O TO N 

60_ LET X= ロ +[※ 昌 

70 LET Y=FNC(X) 

BO LET L=INT(CXY+0.5) + に ド 
B1 IF LX=O THEN 日 7 

B さ IF L:40 THEN 7 ア 

B5 BOTO 90 

B7 FRINT 2 

B9 BHT 1 さ 0 

90 FOUR J=1 TO L 

100_ PRINT 持 人 2 の リョ 

110 NEXT J 

120 FRINT #2。"X" 
13O_NEXT 1 

1 さ 5 CLUSE 2 

140 END 


200 解答 一 一 3.3.5 応用 問題 


1) Y=X^2 っ ) Y=SIN(X) さ ) Y=1/(1+X^ ら ) 
X X X 
X X X 
X X X 
X X X 
X X X 
X X X 
X X X 
X X X 
X X X 
X X X 
X X X 
X X 
X 
X X 
X X 
X X 
X X 
4) Y=SQR(1-X^2) ポ * 
X K 
X の 
x N 
6 X X 
X X 
ン X X 
2 X X 
X 
X 
X 
X 
X 
X 
X 5) Y=COSH(X) 
X X 
X X 
X < 
X X 
X X 
X X 
X X 
X 
X 
X 
6) Y=1/X 
X 
M X 
X 
X 
X 
X 
9 X 
X 
X 
X 
6 X 
X 
X 
X 
X 
X 
X 
X 
X 
X 


4 


解答 一 一 3.4.3 応用 問題 


行 20, 行 30, 行 50 お よび 行 130 を 次 の よう に 変更 し , (の 


を 計算 する 関数 FNR(T) を 付加 すれ ば よい 。 


5 


20 PRINPT 
30 INPUT N,TO,T1 
50 LE 
51 LE 
52 LET 
53 LET 
54 LET 
130 LET 
131 LET 
132 LE 
133 LET 


WN,TO,T1= リ 


H=(T1-TO)/(Nー1 ) 
T=TO 

R=FNR(T) 
X(1)=R*COS(Y) 
Y(1)=R*SIN(T) 
T=TO 填 H*(M 一 1 ) 
R=FNR(T) 
X(M)=R*COS(T) 
Y(M)=R*SIN(T) 


次 の よう な FNR ( T ) を 用 いれ ば よい 。 


i) FNR(T)=T 
jj) FNR(T)=SIN(5*T) 
順 ) FNR(T)=C08(T)+1 


結果 は 105 ペ ー ジ の 三 つ の 図 の よう に な る (N=100 と し た 


場合 )。 


3.4.3 応 


1 


10 DIM 
20 MAT 
30 MAT 
40 MAT 
50 DATA 6,1,8, 
60 DATA 2,5,6 
70 END 

(上 記 の デー タ は 


用 問 題 


A(3,.3),B(3.3),C(3,3) 
READ A,B 

C=A+B 

PRINT C 

7.5.3.2.9,4 
>9.4。7.8,1,3 


A= 








oo * ら kt っ 
ーー の 
と > こぅ の 





6 1 8 
7 5 3 B= 
2 9 4 


の 場合 で ある )。 


2 


20 MAT 
30 MAPT 
40 MAPT 


きき うら 


READ A(2,2) 
READ B(2,2) 
C=A*B 

PRINT C 

MAT D=B*A 

MAT PRINT D 
DATA 3,.2,.5,1 
DATA 2,.9,.6,5 


MAT 


100 END 





20 


40 


きき うき 


110 


20 


40 


きる きき 


110 


201 


DIM 
MAT 
MAT 
MAT 
MAT 
MAT 


A(2,3),B(3,4) 
READ A,B 
C=A*B 

PRINT 0C 
E=TRN(A) 
F=TRN(B) 

MAT G=F*E 

MAT PRINT G 

DATA 8,1,5,2,9,3 
DATA 6,3,3,5,3,2,5,1,1,0 
, 9 ,3 

END 


DIM 
MAT 
MATT 
MATT 
MAT 
MATT 


A(2,3) ,B(2,3) 
READ A,B 
C=TRN(A) 
D=C*B 
PRINT D 
E=TRN(B) 
MAT F ニ =A* 選 

MAT PRINT F 
DATA 1,.2,3,。4.5,.6 
DATA 1,.2.3.4.5,.6 
END 


DIM 
MAT 


A(3,3) ,X(3) 

READ A,X 

MAT Y= ニ A*X 

MAT PRINT Y 

DATA 9.8.7.6,.5,4.3.2,1 
DATA 3,.6,.7 

END 


DIM A(2,2),X(2) ,Y(2) 
INPUT T 

MAT READ X 

LET A(1,1)=COS(Y) 
LET A(1,.2)=SIN(T) 
LET A(2,1)=-8IN(Y) 
LET A(2,2)=COS(TY) 
MAT Y ニ =A*X 

MAT PRINT Y 

DATA 1,2 

END 


202 


10 


20 


DIM A(20,20),B( 

20,20) | 配列 の す 法 は 十分 
DTM X(20),Y(20)| 大 きく と っ て お く 。 
,(20) 


30 INPUT N 行列 の 実際 の 次 数 
40 MAT READ A(N,N)| は , こち ら て 決ま 
50 MAT READ B(N,N)| る 。DIM 文 の 二 
60 MAT READ X(N) 法 に は 定数 し か 書 
70 MAT Y=B*X け な い が MA 
80 MAT 2Z=A*Y READ 文 の 寸法 
90 MAT PRINT 2 と し て は 変数 を 書 
100 DATA 2 く こ と が で きる 。 
110 1,2,3,4 た だ し その 値 は 
120 5,.6,7,8 ] テス ト 用 の D I M 文 で 宣言 し 
130 9,10 ) デー タ た 寸法 を 越え て は 
140 END な ら な い 。 

8 

10 DIM A(10,20) 

20 INPUT M,N 

30 MAT READ(M,N) | _ 
40 GOSUB 800 チ ス ト 用 の メイ ン ・ 
50 END プロ グラ ム と デー タ 
60 DATA 2,3 

70 DATA -1,0,1,2, 

ー3 , 0 

800 REM PATTERN PRINT 

810 PRINT 

820 FOR 1I=1 TO M 

830 FOR J=1 TO N 

840 LET C=A(1, 了 ) 

850 IF C<0 THEN 910 

860 IF 0C=0 THEN 890 

870 PRINT "+!: 

880 GOTO 920 

800 PRINT "0 リ : 

900 GOTO 920 

910 PRINT リー!: 

920 NEXT J 了 

930 PRINT 

940 NEXT 1I 

950 RETURN 

3.5.2 演習 

10 INPUT N 実験 回 数 を N と する 。 

20 LET 03=0ー- 女の子 が 3 人 続け て 生ま れ た 回 数 
30 LET 0=0 。 を 03 と する . 

40 FOR K=1 TO N 女の子 が 連続 し て 生 
50 IT RND>0.5 THEN まれ た 人 数 の 

100 へ 、 カウ ンタ ー 

60 REM OTOKONOKO  、 乱数 が 0.5 よ り 大 
70 PRINT "M": な ら ば 女 と する . 


きき 


100 
110 


解答 一 3.5.7 演習 


LET 0=0 

GOTO 150 

REM ONNANOKO 

PRINT "W": 

LET 0=0+1 

IE 0<>3 THEN 150 

03=03+1 

NEXT K 

PRINT "ZENBUDE! :N:i!NINV 
PRINT "ONNANOKOLGAO3KAIO 
TUZUKETE リ 

PRINT "UMARETALKAISUUUWA 
ロリ :08 

END 


3.5.3 関数 RND の 応用 問題 


95./ 


1 


10 
20 
30 
40 
50 
60 
70 
80 
90 
100 


LET IT=INT(10*RND ) 
LET ゴ =INT(10*RND ) 
PRINT 1 りす: 本:0=V: 
INPUT K 

IF エ + 了 =K THEN 80 
PRINWP "XV 

GOTO 90 

PRINT "0" 

GOTO 10 

END 


DIM P(6),Q(6) 

FOR 1I=1 TO 6 

READ P(1I) 

NEXT 1 

DATA 15,10,.30,10,20,15 
LET Q(1)=P(1)/100 

FOR 1I=2 TO 6 

LET Q(1I)=Q( エ ー1)+P(1I)/100 
NEXT 1 

LET R=RND 

FOR 1=1 TO 6 

IF R<=Q(I) THEN 140 
NEXT TI 

PRINT 1 

STOP 

GOTO 100 

END 


演習 


( 申 ) 


解答 一 一 4.1.3 応用 問題 


4.1.3 応 


1 


用 問 題 


文字 列 配列 の 使用 が 可能 な ら ,。 次 の よう に する と よい 。 


10 
20 
30 
40 
50 
60 
70 
80 
90 
100 
110 
120 
130 
140 
150 
160 
170 


180 
190 


200 
210 
220 
230 
240 
250 
260 


2 


DIM L\(40) 

FOR X=0 TO 3 8TEP 0.1 
FOR 1I=0 TO 40 

LET L\(I)= リ こ リ 

NEXT TI 

FOR 1I=10 TO 30 8TEP 10 
LET L\(I)= リ 1 リ 

NEXT 1 

LET K=20 二 10*SIN(X) 
LRT L(K)= リ + リ 

LET A=X 

LET F=0 

FOR J=1 TO 5 

LET F=F 十 A 

LET K=20 二 10*#F 

IE K>40 THEN 190 

IE K< く 0 THEN 190 
L\(K)= リ * リ 

LET A ニ = ニーA*X*X/( 2* ネ 本 *( 2* ネ 本 十 1 
) ) 

NEXT 耳 

FOR 1I=0 YO 40 

PRINT L\(I): 

NEXT 1I 

PRINT 

NEXT XX 

END 


次 の よう な プロ グラ ム で 数 値 的 に 出力 し 。 手 で プロ ッ ト す 
る の が 安全 。 


10 


20 
30 


どら ちぎ きき ぎら 


FOR X=0.3 TO 3.0 STEP 0. 
1 

LET Y=(Xー1] ) /( XX] ) 

LET F=0.86304*Y 二 0.3645*Y 
人 3 

LET EE=F-LOG(X)/LO0G(10) 
PRINT X,F,E 

NEXT X 

END 


LET C1=0.135451446 

LET 0C2=2.6252949 

LET 03=4.0333293 

LET A3=1/3 

LET A5=2/15 

LET A7=7/315 

FOR X=0 TO 1 STEP 0.1 





110 
120 
130 


140 
150 
160 
170 
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LET T= ニ X*3.1416/4 

LET Y1 ユ =(C1 二 C2/(0C3ーX*X) )* 
え 

LET Y2=SIN(T)/COS(T) 

LET 2 の =T*T 

LET Y3=(((A7* 二 A5 ) *Z 士 A3 ) 
* ネ の 十 ] )* 呈 

LET YO0=TAN(T) 

PRINT X,YO,Y1.Y2,.YS 

NEXT XX 

END 


計算 時 間 の 測定 に は , TIME (機種 に よっ て は TIM) と ぃ 
う 組 み 込 み 関数 を 使用 する と よい 。 た と えば 


10 
20 


30 
40 
50 
60 
70 
80 
90 


910 
920 
930 
940 
800 


810 
820 


830 
840 


850 


610 
620 
630 


640 


LET C]=0.13451446 

LET C2=2.6252949 

LET C3=4.0333293 

PRINT TIME 

FOR 1+=1 TO 1000 

LET Y=(C1 二 C2/(C3 一 X*X) ) *X 


NEXT 1 

PRINT TIME 

END 

REM ___ERROR FEUNCTION___ 


LET Y=(.078108*X†0.00097 
2 ) *X 

LET Y=(Y 二 0.230389 ) *X 二 0.2 
78393 

LET Y= ニ 1-ー1/(]1 二 Y*X) へ 4 
RETURN 


REM ___BESSEL FUNCTION _ 


LET 2=(X/3) へ 2 

LET Y=0.0002100*Zー0.0039 
444 

LET Y=(Y*Z2 二 0.0444479 ) * み ー 
0.3163866 

LET Y=(Y*Z 士 ] .2656208 ) *ー 
2.2499997 

LET Y ニ 1+Y* ネ の 

RETURN 


REM __GAMMA(X)__ 

LET N=INT(Xー] ) 

EET 2 の ニ XーN 一 1 

LET Y= ニ (0.1010678*Z 十 0.42 
45549)*Z 

LET Y= ニ (Yー.6998588)*2 十 .95 
12363 ) *2 
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650 LET Y=(Yー.5748646 ) * 呈 1 
660 IF N=O THEN 710 

665 LET =Z 二 1 

670 FOR エ =1 TO N 

680 LET Y=Z*Y 

690 LET =Z2 十 1 

700 NEXT T[ 

710 RETURN 


740 REM ___BETA(P,Q)___ 
745 LET X=P 

750 GOSUB 610 

755 LET Y]1=Y 

760 LET X=Q 

765 GOSUB 610 

770 LET Y2=Y 

775 LET X=P+Q 

780 GOSUB 610 

785 LET Y=Y1*Y2/Y 
790 RETURN 


4.2.4 応 用 問 題 


10 DIM Y(10) 


20 FOR 1 エ =0 "TO 10 高度 0~-10 km の 

30 READ Y(1) 標準 大 気密 度 p 

40 NEXT 1 (kg/m') 

50 DATA 1.2250,1.1117 

60 DATA 1.0006,0.9093 

70 DATA 0.8194,.0.7364 

80 DATA 0.6601,0.5900 

90 DATA 0.5258,0.4671,.0.413 
5 

100 INPUT !X=W,X 


110 LET 1=INT(X) 

120 LET D=Xー エ 

130 LET R=Y(1I) 十 (Y( エ 二 1 )-Y(1) ) 
*D 

140 PRINT "R= リ :R 

150 END また は GOTO 100 


125 ペー ジ の プロ グラ ム に 下記 を 追加 する 。 

10 DIM X(10) ,Y(10) 

20 FOR エ =1 TO 8 

30 READ X(1) ,Y(1) 

40 NEXT I 

50 DATA 0 

60 DATA 3, 

70 DATA 4 

80 DATA 4 
5 








解答 一 一 4.2.4 応用 問題 


100 DATA 6,0.3 
110 DATA 7,.0.1 
120 DATA 8,0 
130 LET N=8 

140 INPUT 2 


0 5 の 

本 文 の プロ グラ ム を 挿入 

300 LET 8S=(-X(L) )/(X(L 二 1 )- 双 
(て ) ) 

310 LET FE=Y(L) 二 (Y(L 二 1)--Y(L) ) 
*S 

320 PRINT F 

330 END また は GOTO 140 


3 

入力 の 部 分 は 前 問 解答 の 行 10 て 140 と 同じ で よい 。 ま た , 
テ 含む 区 間 を さがす 部 分 は 125 ペー ジ の プロ グラ ム を 使用 で 
きる 。 次 数 を 3 次 (4 点 使用 ) に 固定 すれ ば , 補間 の プロ グ 
ラム は 次 の よう に な る 。 

300 IF L く 2 340 

310 IF L>5 360 

320 LETT K= ニ Lー1 

330 GOTO 370 

340 LET KK=1 

350 GOTO 370 


360 LETT K=Nー3 

400 LET P=0 

410 FOR 1=K TO K+3 
420 LEET A=1 

430 FOR =K TO K+3 


440 IF 1 エ =J THEN 460 

450 LET A=A*(2ーX( 了 ) )/(X(1)-XX 
( 了 ) ) 

460 NEXT 了 

470 LET P=P+Y(T1)*A 

480 NEXT 1 

490 PRINT P 

500 END また は GOTO 140 


解答 一 一 4.3.3 応用 問題 


4 
4 次 (5 点 ) の Lagrange 補間 を 用 いる と すれ ば 次 の よう に 
な る 。 
5 DIM X(4 ) ,Y(4) 
10 FOR 1=0 TO 4 
15 READ X(1) ,Y(1) 
20 NEXT 1I 
25 DATA 0,0 
30 DATA 30,.0.5 
35 DATA 45,0.707107 
40 DATA 60,0.866025 
45 DATA 90,1 
50 FOR 2=0 TO 90 
55 LET M=4 
本 文 127 ペー ジ の プロ グラ ム ( 行 100~180) を 挿入 
200 PRINT 2Z,P,SIN(2) ,P-8SIN(2Z 
) 
210 NEXT の 
220 END 


ヒン ト に 従っ て プロ グラ ム を 作る と 次 の よう に な る 。 

10 DIM X(3) ,Y(3) 

20 FOR 1=0 TO 3 

30 READ X(1),Y(1) 

40 NEXT 

50 DATA 

60 DATA 

70 DATA 

80 DATA 4, 

90 FOR 2=2 TO 3 

本 文 127 ペ ー ジ の プロ グラ ム ( 行 100~ て 180) を 挿入 
た だ し , M の 所 は 3 と する 。 

200 LET =P/(2-1 ) 

210 PRINT 2ー1,F 

220 NEXT の 

230 END 


4.3.3 応 用 問 題 


1 
先 に 4.3.1 節 で 示し た Simpson の 公式 の プロ グラ ム を 用 い 
る と , 結果 は 次 の よう に な る 。 
i ) 

が =10 で 計算 する と 。S =0.2525 

が =100 で 計算 する と , ゞ =0.250025 

パニ 1000 で 計算 する と 、S =0.25 

( 単 精度 で 計算 し た 場合 ) 


テ 


心 ピロ 
の の ビレ ピ 


ji) 

パニ 100 で 計算 する と S =1.7183… 
順 ) 

パニ 100 で 計算 する と , ゞ =0.785394… 
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プロ グラ ム と 結果 

10 LET N=10 

20 LET 8S=0 

30 FOR A=1 TO 2.1 STEP 0.1 
40 LEET B=A+0.1 

50 PRINT A,.8S 

60 LET H=(B-A)/N 

70 LET W=0 

80 FOR 1I=1 TO N-1 

90 LET X=A 十 IT*H 

100 LET W=W+1/X 

110 NEXT 1 

120 LET W=(1/A)/2+W+(1/B)/2 
130 LET 8=W*H+†S 


140 NEXT A 
150 END 
Q 
1 。1 9.5 さ 1 17EーQS 
る 。 当 ・18B2324 
1。 さ ・ ご 62 さ 6 日 
1. 人 4 ・ ささ 6476 
1 。 王 ・40547 
1. ら 6 < 人 470009 
この 。 呈 さ O6 さ 4 
1.8 。B7793 
1 。9 ・641H6 
る ・69 さ 154 
3 
1 ロ DIEF FNCKX)=EKP( 一 の 8) 
2 INPUT "RB,」N=", ロ ,E,N 
3 ロロ LET 日 =(E-R〉/N 
4 LET 同 = 昌 
5 FR 1=1 TO N-1 
E ロ LET = ロ +1*H 
? ロ LET MM+FNCEKR) 
8 NERT 1 
3 LET 軸 =EFNECR) ノ 8+† 団 FNE(E)/ ご 
1 LET ご = 同日 18 
11 ロ .PRINT 8 
12g ENH 
Rgagl 
RUN 
ロ , BE ,N= ニ ロ , 5, 1 ロ 
・8B6 ご ご 7 


4 
プロ グラ ム は 前 問 と 同じ で よい 。 関数 FNC (X) お よび 実 
行 結果 は 次 の と お り 。 


198 HEF FNC(R)=SGRR て 1 の どう 
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4.4.2 演習 


1 
上 の プロ グラ ム 例 の 行 110 以後 を 次 の よう に 変更 すれ ば よ 
い 。 
⑪ 
110 LET F= ニ ーX*Y 
120 RETURN 
入力 デー タ (4* ニ =0.1 で = 1 まで 計算 する 場合 
0。1。0。1 TO 
(2 
110 LET F=X*X/Y 
120 RETURN 
入力 デー タ (4x=0.05 で = 1 まで 計算 する 場合 ) 
0,1.0.05,20 
(3) 
110 LET F=Y-SIN(X) 
120 RETURN 
入力 デー タ (4 ァ =0.1 で = 5 まで 計算 する 場合 ) 
040.5。0.1 ょ 5 


2 
ー13sY ミ 1 の 範囲 の グラ フ を 描く の で あれ ば , 上 の プロ 
グラ ム 例 の 行 40 を 次 の よう に 修正 すれ ば よい 。 
40 PRINT X,Y,TAB(50+10*Y): リ 
まり 
な お , その 前 に 。 オ ー パ ー ス ケール の 防止 の た め 
39 IP ABS(Y)>1 THEN 50 
を 挿入 する と よい 。 


4.4.4 演習 


1 
( 略 ) 


4.4.7 応 用 問 題 


10 DIM Y(2) 。YO(2) 。F (2) 
20_ DIM F1 (2) ,。F2(2) 。F さ (2) 
さ Q_ READ XQO。N。H。KR 

40 FOUR 1=1 TH N 

50 READ YO(1 ) 

60_Y(I) =YO(1 ) 

70_NEXT I 

BO FOR L=QO_ TOK 

0 X=XQ+L* 昌 

100_ BUSUE 5QO 

110 FOR 1=1 TO N 

120 F1(1I)=F(1I) 

13Q_YK(1 ) =YO(T ) +F (1 ) *H/ つ 
140_ NEXT I 

150O_X= ニ X+H/2 

!160 GUSUB 5QO 











解答 一 一 4.5 節 と 4.6 節 の 応用 問題 


170 FOR 1=1 TH N 

180 F2(I)=F(1) 

190_Y(T) =YO(1 ) +F (1 ) *※ 日 /2 

200_ NEXT 1 

210 BUSUE 5QQ 

220 FDR 1=1 TO N 

2 さ 0 F さ (1 )=F(1 ) 

240_ Y(1)=YO(T)+F (1 ) *※ 日 

250_NEXT 1I 

260 X= ニ X+H/2 

270 BUSUE 5QQ 

2B0 FOUR 1=1 TO N 

290、Y(I) =YO(1 エ )+(F1(T)+2*F2(1) 
+S%F さ (T)+F(T1 ) ) % 昌 /6 

さ 00_ YO(T)=Y(1) 

さ 05 IF _LS>INT(L/10+0.01 ) *10 
THEN さ 20 

さ 10 FRINT Y(1) 。 

さ 20 NEXT Ir 

さ 25 IF _LX>INT(L/10+0。01 ) *10 
THEN さ 40 

ささ 0 FRINT X』TaAB(60+Y(1 ) % 王 ) 』" 
: る 

さ 40_ NEXT L 

さ 50 STOP 

GOQ_REIM ーーー ひ * けい すう の けい さん ーーー 

510 F(1) =Y(2) 

520 F(2)=-SIN(Y(1) ) 

5 さ O_RETURN 

5 さ 5 REM --- ミッ 

I540 DATA 0O。2。0.1. さ 0O 

55O DATA さ .O 

5S6O DaTA QO 

570 END 


2 ( 路 ) 


4.5 節 と 4.6 節 の 応用 問題 
1 


ー ツ マー ーーー 


i ) 
ア (x) =2xーtanx 
ア '(x) =2-secx 
で ある か ら , 
2xーtanx 
ネー2ー17cos 
を 反復 すれ ば よい 。 
10 LEET X=1 
20 FOR K=1 YO 10 
30 LET FE= ニ 2*XーTAN(X) 
40 LET D=2--1/CO8(X) へ 2 
50 PRINT K:X,F 
60 LET X= ニ Xー ド /D 
70 NEXT K 
80 END 





デ デ ー デ ーー 


解答 一 一 4.7 節 と 4.8 節 の 応用 問題 


ij ) 
出発 値 は 鍵盤 か ら 入 力 す る こと に する ( 根 が 2 人 箇 あ る こと 
に 注意 )。 
10 INPUT X 
20 FOR K=1 TO 10 
30 LET F= ニ 2*Xー(EXP(X) 十 EXP( 一 X 
) ) /2 
40 LET D=2 一 (EXP(X)-EXP(-X 
) ) /2 
50 PRINT Ki:X,F 
60 LET X=X-ーF/D 
70 NEXT K 
80 END 


損 ) 

上 と 同様 。 た だ し 
30 LET F=X*XーSIN(X) 
40 LET D=2*XーCOS(X) 


10 DEF FNS(X)=(EXP(X)EXP( 一 


X ) )/2 
20 DBEF FNC(X)=(EXP(X)†EXP( 一 
X ) ) /2 
30 LET T=Z 
40 FOR K=1 TO 10 
50 LET F=1.1*T-FNS(T) 
60 LET F=1.1*T-FNS(T) 
60 LET D=1.1-FNC(T) 
70 LET T=TーP/D 
80 NEXT K 
90 LET A=100/T 


100 LET W=A*(FNC(100/4 ) 1 ) 
110 PRINT !T= リ iT 

120 PRINT "W=V"iW 

130 END 


央 密 解 は 
i) 
1。 2, 3 


ji) 
2。 一 1 あー! 


) 


1 (2 重根 )、 一 1 (3 重根 ) 
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4.7 節 と 4.8 節 の 応用 問題 


1 

佐 密 解 は 
i)x=ー-1/6 =ー172 1 
ji)*=1/6 ヵ =1/2 z=1 


2 

厳密 解 は 
119/12 -7/2 -573 
i) | -28/12 1 173 
-19/12 1/2 173 
5 7 6 5 


ji) 





0 0 
1 0 
操 ) 0 -1 2 -1 0 
1 1 
0 1 


3 
157 て 158 ペー ジ の プロ グラ ム を 次 の よう に 改造 すれ ば よ 
い 。 
105 LET D=0 挿入 
122 LET D=-D 
150 LET D=D*A(K,K) 
230 LET D=D*A(N,N) 
240 PRINT "DET=":D 
下記 の 行 を 削除 。 
80, 90, 200, 250~310, 123~124 


変更 


4 
157 ペー ジ の プロ グラ ム の 行 10 て 100 を 次 の よう に 変更 す 
れ ば よい 。 
5 DIM A(3,.3),X(3) ,B(3) 
10 LET N=4 
15 FOR 1=1 TO N 
20 FOR J=1 TO N 
25 LET A(I, 了 )=0 
30 NEXT 耳 
35 LET B(1)=0 
40 NEXT 耳 
45 M=5 
50 FOR K=1 TO M 
55 READ 1I,J,R 
60 LET A(T,J 了 )=ー1/R 
65 LET A(J 了 ,T1)=ー1/R 
70 LET A(I,1)=A(I,1I) 十 1/R 
75 LET A(J, 了 )=A( 了 , 了 ) 二 1/R 
80 NEXT K 
85 READ 1I,I0O 
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90 LET B(1I)=IO0 

92 FOR J 了 =1 YO N 
94 LET A(1T,J 了 )=0 
96 NEXT 了 

98 LET A(1I,1)=1 
100 DATA 1,2,| 太 
101 DATA 1,3,| 万 
102 DATA 2,3,| 太 
103 DATA 2,4,| 太 
104 DATA 2,5,| 大 


解答 一 一 4.9 節 の 応用 問題 


れ ば よい 。 
50 LET A(I., 了 )=0 
55 NEXT 了 


60 LET A(TI,1I)=2 

65 IF TI=N THEN 80 
70 ET A( T, エ 1] ) = ニー1 
75 LET A( エ +1,1 ) =ー1 
80 NEXT 1 


3 
165 ペー ジ の ブログ ラム の 行 10~80 を 次 の よう に 変更 す 





105 DATA 1, 0 計 
(抵抗 値 。 電流 値 を 記入 ) 





4.9 節 の 応用 問題 


1 
賊 密 な 固有 値 。 固 有 ベ ペク トル は 次 の よう に な る 。 


i) 10 42 三 5 4 ん An=2 44 ニ 1 
2 デ 帳 0 ー1 
2 |-1 | 0 | ュ 
三 1 み 2 ぬ ニ 1 0 
1 2 1 0 
jj) =4 43 三 40 A ヵ 400 4 三 4000 
1 1 1 1 
1 1 | = 肖 
= = = ニ 
トト Al や ト ョ | "| 
1 問 1 ー1 


(注意 ) 固有 ベク トル の 計算 結果 は , 普通 、 上 記 と 同じ に 
な ら な い が , 成分 の 比 が 上 記 に 一 致す れ ば よい 。 


2 
165 ペー ジ の プロ グラ ム の 行 50 て 80 を 次 の よう に 変更 す 





れ ば よい 。 
10 DIM A(3,3) ,V(3,3) 
15 INPUT K1,K2 
20 INPUT I1,I2,1I3 
25 LET A(1,1 ) =K1/11 
30 LET A(1,2)=-K1/SQR(I1*12 
) 
35 LET A(1,3)=0 
40 LET A(2,1)=A(1,2) 
45 LET A(2,2)=(K1+K2)/I2 
50 LET A(2,3)=-K2/SQR(I2*13 
) 
55 LET A(3,1)=0 
60 LET A(3,2)=A(2,3) 
65 LET A(3,3)=K2/153 
70 LET N=3 
また 行 510 の 次 に 挿入 
515 PRINT "F=:SQR(A( 了 , 了 ) )/6 
-2832 


あ 行 
アド レス 24 
アナ ログ 1 


アナ ログ ・ コ ンピュータ ー 21 
あふ れ 75 


余 り 75 

ー 様 乱数 110 
イン チ 40 

うる う 年 58 
駅 間 距 離 表 53 
円 雛 の 体積 。41 
円 の 面積 41,135 
絵 を 描く 70 


大 き さ の 順に 並べ る 92 

大 口 割り 引き 58 

同じ デー タ を 何 度 も 使う 方 法 66 
オー バー フロ ー 75 

オペ レー ティ ング ・ シ ステ ム 28 


ノー 


か 行 
階 乗 62 
外部 ソー ト 92 
拡張 BASIC 33 
家計 簿 86 
加算 器 5 
カ 氏 温度 40 
仮数 部 9 
数 える 84 


カー ド 11 


引 
紙テープ 12 
簡略 BASIC 33 
関 数 64 
関数 の グラ フ 104 
関数 名 65 
ガン マ 関 数 123 


ガン マ 関 数 表 を 作る 129 


気圧 40 

記憶 装置 16 

擬似 乱数 110 

基本 BASIC 33 
逆行 列 160 

逆 正 接 39 

キャ ラク ター・ デ ィ ス プレ イ 14 
級 数 119 
級数 の 和 44 
球 の 体積 。41 
球 の 表面 積 41 

行 番号 35 

行 列 

ー 一 演算 機能 106 
ーー と ベク トル の 積 。 109 
ーー の 乗算 107 
ーー の 和 108 
行列 式 162 

ーー の 値 52 

行 和 88 

極限 値 47 

極座標 105 

近似 式 119 

金 種別 計算 96 
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九 九 の 表 50 

偶数 か 奇数 か の 調べ か た 55 
組合 せ の 数 62 

組み 込み 関数 38 

グラ フィ ッ ク ・ デ ィ ス プレ イ 14 
くり か ぇ し 42 


計 数 84 
欠席 日 数 96 
懸垂 線 154 
弦 の 振動 167 
鍵 盤 11 


語 3 
高階 微分 方 程 式 の 解法 142 
合格 54 

交換 法 93 

合 計 86 

高 次 代数 方 程 式 150 
構 成 10 
誤差 関数 の 近似 式 121 
誤差 曲線 122 

5 次 方 程 式 155 

コー ディ ング 23 
固有 値 164 

固有 ベク トル 164 
コン パイ ラー 27 
コン パイ ル 27 


き 行 


サイ コロ 111 
再 実行 74 
最小 公 倍数 76 
最小 値 90 
最大 公約 数 76 
最大 値 ・90 
座標 変換 "109 
サブ ルー チン 62 


索 引 


三角 関数 38 

ーー の 和 と 差 の 公式 41 
表 を 作る 129 
三角 形 の 面積 41,60 

3 次 方 程 式 155 

算数 練習 機 112 

散布 図 102 





磁気 コア 19 
磁気 ディ スク 18 
磁気 テープ 18 
磁気 ドラ ム 19 
磁気 パ バブル 19 

四 捨 志 入 79 
指数 関数 39 
指数 部 9 

指数 乱数 115 
自然 対数 39 

時 速 40 

実 係数 の 代数 方 程 式 の 複素 根 150 
実 行 73 
指標 値 40 

時 分 秒 の 計算 。 78 
修正 73 

集積 回 路 17 
収束 判定 59 

出力 装置 。 13 
消去 法 156 

照 合 58 

乗算 器 7 

乗算 記号 35 

常 微分 方 程 式 136 
常用 対数 120 
ジョ イス ティ ッ ク 12 
除算 器 7 

除算 記号 35 

ジョ ブ 制 御 言語 31 


索 引 


数 値 積分 130 
数 表 を 作る 42 
正規 乱数 114 
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